Spaces

Private Sub CommandButton1_Click()

Dim mycell As Range Dim myrange As Range

Set myrange Worksheets("Extra Space").Range("82:E10")

For Each mycell In myrange

mycell.Value = Application. WorksheetFunction.Trim(mycell.Value)

Next mycell

End Sub