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.
Any help would be appreciated.
VBA Code:
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