VBA Row 2:2 wrap text on all sheets that start with Data (Code included)

[LNG2013]

Hello I am trying to wrap text on all rows 2:2 on all sheets that have the name Data.

Any help would be appreciated.

Sub WrapRow2()

Dim sh As Worksheet

For Each sh In ThisWorkbook.Worksheets

    If UCase(Left(sh.Name, 4)) = "DATA" Then

        With Rows("2:2")
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With

    End If

Next

End Sub

 

[DanteAmor]

Just add the reference to the sheet on this line:

With sh.Rows("2:2")

 

[LNG2013]

Just add the reference to the sheet on this line:

With sh.Rows("2:2")

Thank you I made the change and it did not wrap the text for row 2. I also tried

With sh.rows(2)
With sh.rows(r2)

All did not work.

 

[DanteAmor]

Your sheet names must start with "DATA..."
You can put here the names of your sheets.

And also test the macro step by step, run the macro by pressing F8 and check what the code is doing.