Trim function in VBA

[molavi111]

Hi,

I would like to know how to write a macro that selects all rows/column
on a worksheet and perform the trim function (both right and left
within each cell.

thanks a lot!

 

[Guest]

Actually, I think you need Application.Selection.Cells

my bad

 

[Guest]

Try this:

Public Sub TrimItAll()

For Each objC In Application.Selection

objC.Value = Trim(objC.Value)

Next

End Sub

 

[Tom Ogilvy]

Sub doATrim()
for each cell in Activesheet.UsedRange.specialCells(xlconstants,
xlTextValues)
cell.Value = trim(cell.Value)
Next
End Sub