Code to remove spaces from cells

Sub DelSpcsInCol()
Dim rng As Range

Set rng = ActiveSheet.Range("A1:A10")
    rng.Value = Application.Trim(rng)
End Sub