Delete Leading and Trailing spaces (Excel 97)

Topic

New Reply

Hi All,

How would I write a macro that will allow me to delete all leading and trailing spaces in all cells in columns A and B?

Thanks

Reply | Quote

Replies

Try this

Sub TrimCells()
Dim oCell As Range
For Each oCell In [A:B].SpecialCells(xlCellTypeConstants, 2)
oCell = Trim(oCell)
Next
End Sub

Andrew C

Reply | Quote

Thanks for your help. It worked perfectly.

Reply | Quote