looping through sheets & amend rowheight

[walidm]

Hi all,
How can I achieve this:
I would like to loop through all my sheets & set the row height to 20 on rows starting from row 6 to the last non blank row.
Thanks for your help.

 

[VoG]

Hi. Try this

Sub rowht()
Dim ws As Worksheet, LR As Long
For Each ws In ActiveWorkbook.Worksheets
    With ws
        LR = .Range("A" & Rows.Count).End(xlUp).Row
        .Rows("6:" & LR).rowheight = 20
    End With
Next ws
End Sub

 

[Weaver]

You could use a macro

Sub globalChangeCellHeight()
    For Each ws In ActiveWorkbook.Worksheets
        lr = ws.Cells.Find(What:="?", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
        ws.Range("A6:A" & lr).EntireRow.RowHeight = 20
    Next ws
End Sub