macro

[china]

Please help!

Anyone who can give me a macro program that will trim the
entire worksheet.
I want to have a two way of trimming
first is that -- no space before the data in a cell
second there should only one spacing.

Thanks

 

[Gord Dibben]

china

Sub TRIM_EXTRA_SPACES()
Dim Cell As Range
For Each Cell In Selection
If (Not IsEmpty(Cell)) And _
Not IsNumeric(Cell.Value) And _
InStr(Cell.Formula, "=") = 0 _
Then Cell.Value = Application.Trim(Cell.Value)
Next
End Sub

Gord Dibben Excel MVP