Hi,

I would like to use a trim function to delete spaces before and after a
text in an entire column, but so far I could only use it in a cell:

Sub mac1()
Dim testing As String
testing = ActiveSheet.Range("A1")
ActiveSheet.Range("B1") = Trim(testing)
End Sub

Thanks for any help,

--
Domingos Junqueira