убрать лишние пробелы в конце фраз в ячейке

[Bape}l{ka]

доброе утро всем!! ))

возник вопрос: нужно убрать лишние пробелы в конце фраз в каждой ячейке, т.е. в ячейке содержимое выглядит так "Золотая миля " (пробел в конце, который мешает)

думала сделать так, но не работает Т_Т
подскажите, что неправильно?

For Each cell In ActiveWorkbook.ActiveSheet.Range(Cells(FirstRow, FirstCol),Cells(MaxRow, MaxCol))
        cell.Value = Trim(UBound(cell.Value))
Next cell

[EducatedFool]

UBound вы зачем вставили? он там вообще не в тему...

Убираете весь ваш код, оставляете одну строку:

ActiveSheet.usedRange.Value = application.trim(ActiveSheet.usedRange.Value)

[kuklp]

Только осторожней, так убьет все формулы на листе. Так безопасней:

Sub TrimSpaces()
    Dim a As Range
    For Each a In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants).Areas
        a = Application.Trim(a)
    Next
End Sub

[Bape}l{ka]

спасибо большое! ))

а UBound - т.к. думала, что Trim убирает вообще все пробелы, поэтому чтобы только в конце смотрел =\

спасибо еще раз)