RowHeight Macro

[cdegar01]

Hello, all. I am trying to learn how to write a macro that would set the row height at 18.75 for every 66th row. Any help would be appreciated.

Thanks

 

[Joe4]

This should do it:

Sub MyRowHeight()

    Application.ScreenUpdating = False

    Dim myRow As Long

'   First row to change height
    myRow = 66
    
    Do Until myRow > 65536
        Rows(myRow).RowHeight = 18.75
        myRow = myRow + 66
    Loop
    
    Application.ScreenUpdating = True

End Sub