How To VBA Code To All Worksheets?

[Nanogirl21]

I am using this code.

Sub CleanUp()
   With ActiveSheet.UsedRange
      .Value = Evaluate("if({1},trim(clean(substitute(" & .Address & ",char(160),"" ""))))")
   End With
    ActiveSheet.UsedRange
End Sub

How can I apply it to all worksheets in the active workbook? If there is ever an error it should skip to the next worksheet.

I'd like to be able to use the general format for furture codes that I may need.

Thank you!

 

[alansidman]

Option Explicit


Sub CleanUp()
    Dim ws As Worksheet
    For Each ws In Worksheets
        With ws
            .Value = Evaluate("if({1},trim(clean(substitute(" & .Address & ",char(160),"" ""))))")
        End With
    Next ws
End Sub