Macro to run across entire WorkBook

[bushidowarrior]

Hello,

I have this code however, I would like to make it run across the entire workbook:

Sub RemoveLeadingTrailingSpaces()
  Dim r As Range
  For Each r In ActiveSheet.UsedRange
    v = r.Value
    If v <> "" Then
      If Not r.HasFormula Then
        r.Value = Trim(v)
      End If
    End If
  Next r
End Sub

I thought it would be: ActiveWorkBook.UsedRange, but no.

Thank you

 

[Fluff]

How about

Sub RemoveLeadingTrailingSpaces()
   Dim r As Range
   Dim Ws As Worksheet
   For Each Ws In Worksheets
      For Each r In Ws.UsedRange
         v = r.Value
            If v <> "" Then
               If Not r.HasFormula Then
                  r.Value = Trim(v)
            End If
         End If
      Next r
   Next Ws
End Sub

 

[bushidowarrior]

Works perfectly.

Thank you every so much!!!

How about

Sub RemoveLeadingTrailingSpaces()
   Dim r As Range
   Dim Ws As Worksheet
   For Each Ws In Worksheets
      For Each r In Ws.UsedRange
         v = r.Value
            If v <> "" Then
               If Not r.HasFormula Then
                  r.Value = Trim(v)
            End If
         End If
      Next r
   Next Ws
End Sub

 

[Fluff]

You're welcome