Deleting spaces in cells
You can avoid loop altogether.

 With Activesheet.UsedRange
     .Value = Application.Trim(.Value)
 End With


Warning: will give error if any cell has more than 255 characters.