1: 2: 3: 4: 5: 6: 7:
Sub RemoveSpaces() Dim cel As Range For Each cel In ActiveSheet.UsedRange cel = Trim(Replace(cel.Text, Chr(160), "")) Next End Sub