How to use vba to remove extra spaces between words

This will remove upto 4 extra spaces in Column A:

Sub JoeWalsh()
With Range("A2:A" & ActiveSheet.UsedRange.Rows.count)
    .Replace " ", " ", xlPart
    .Replace "  ", " ", xlPart
    .Replace "   ", " ", xlPart
    .Replace "    ", " ", xlPart
End With
End Sub