VBA - Trim all cells in Row 1

[ckp90c]

Hi All - I just want a simple macro that will trim all cells in Row 1 of my specified sheet?

 

[MARK858]

Maybe (change Sheet1 to suit. Why do you state "my specified sheet" then not state it?????) ...

Sub CleanTrim()
    Dim myArea As Range
    For Each myArea In Sheets("Sheet1").Rows(1).Areas
        myArea.Value = Evaluate("IF(ROW(" & myArea.Address & "),CLEAN(TRIM(" & myArea.Address & ")))")
    Next myArea
End Sub

Test on a copy of your data