Function:
=Trim(CellRef) e.g. =Trim(A1)

Code:

Sub Trim
trim(Range.text)
End Sub

e.g

Sub TrimText
Trim (Range("A:A").Text)
End Sub

"gh" wrote in message
...
There is a space before the first character of text, in each cell. How
can I remove the space?

TIA