Sub TrimSelection()
' Ctrl+Shift+T
TrimRange Intersect(ActiveWindow.RangeSelection, ActiveSheet.UsedRange)
End Sub
Sub TrimRange(r As Range)
Dim rArea As Range
Dim sAdr As String
For Each rArea In r.Areas
With rArea
sAdr = .Address(ReferenceStyle:=Application.ReferenceStyle, _
External:=True)
.Value = Evaluate("if(row(), substitute(" & sAdr & ", char(160), "" ""))")
.Value = Evaluate("if(row(), trim( " & sAdr & "))")
End With
Next rArea
End Sub