With Range("A1:A12")
.Offset(, 1).Value = Application.Trim(.Value)
End With

Regards,
Peter T

"dstiefe" wrote in message
...
I have a colum of data that has spaced before the text...the number of
spaces
varies per cell..

how do i eliminate the spaces within each cell?

Thank you