Sub Remove_Spaces()
Dim rangeSheet As Range
Dim rangeText As Range
Set rangeText = Cells.SpecialCells( _
xlCellTypeConstants, _
xlTextValues)
For Each rangeSheet In rangeText
rangeSheet.Value = Trim(rangeSheet.Value)
Next
Set rangeText = Nothing
Set rangeSheet = Nothing
End Sub
