Set Row Height

[ManUBlueJay]

I would like to set the row height starting from Row 4 to the bottom of a large table that constantly changes.

 

[mrshl9898]

Like this?

Sub RowHeight()


Dim lastrow As Long
Dim sht As Worksheet


Set sht = ActiveSheet
lastrow = sht.Cells.SpecialCells(xlCellTypeLastCell).Row


sht.Rows("4:" & lastrow).RowHeight = 20


End Sub

 

[ManUBlueJay]

Works like a dream.
Thank you