RowHeight Macro

[cdegar01]

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

 

[Chip Pearson]

Try something like


Dim RowNdx As Long
Dim LastRow As Long
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
For RowNdx = 1 To LastRow Step 66
Rows(RowNdx).RowHeight = 18.75
Next RowNdx


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com