Thread: Remove spaces

with vba

Sub aa()
Dim x&
For x = 1 To Cells(Rows.Count, "a").End(xlUp).Row
Cells(x, 1).Value = Replace(Cells(x, 1).Value, " ", "")
Next
End Sub

Use Replace All with a single space in the first box and nothing in the second box. Select the column first.


Regards, TMS