VBA: Enable wrap text on multiple sheets

[KGee]

The IF statement below was part of a larger macro and used to enable the wrap text option when it was run from Sheet2.

If ActiveSheet.Name = "Sheet2" Then
    Range(Range("M22"), Range("M22").End(xlDown)).WrapText = True
End If

We have since added more worksheets to our file and would like to run the entire macro from Sheet1 and have it enable the wrap text option on multiple sheets. I tried using the lines below but it doesn't work. Everything else I tried failed in the debugger.

Sheets("Sheet2").Range("M22").End(xlDown).WrapText = True
Sheets("Sheet4").Range("C20").End(xlDown).WrapText = True

 

[Fluff]

One option

With Sheets("Sheet2")
   .Range("M22", .Range("M22").End(xlDown)).WrapText = True
End With

How many sheets are you looking to run this on?

 

[KGee]

To capture these user comments, two so far but there are currently six sheets in the workbook and there are other formatting type changes specific to each sheet that need to be applied so I am following the same approach. Thanks!

 

[Fluff]

Glad to help & thanks for the feedback