Dim rng As Range
For Each rng In Range("A1:C4")
rng.Value = Trim(rng.Value)
Next