In diesem Beispiel wird die Höhe der ersten Zeile in Sheet1 verdoppelt.
With Worksheets("Sheet1").Rows(1) .RowHeight = .RowHeight * 2 End With