Sub RemoveTabs()
    Dim rng As Range, cel as Range
Set rng = Selection
    For Each cel In rng
        cel.Value = Replace(cel.Value, Chr(9), "")
    Next cel
End Sub