Row height and spacing

[jasonthatsme]

Ok, this is an easy one for all you experts out there. What I need to do is every 12 rows of normal height, I need to insert a row that is 5 times that height. So, 12 rows at 15, then 1 row at 75, 12 rows at 15, 1 at 75, and so on. This needs to span about 3000 rows. There has got to be an easier way to do this than changing every 13th row one at a time but I don't know what it is. Can anyone help on this??

[NBVC]

If you hold the CTRL key down and select every 12th row, then you can adjust row height once and it will apply to all selected rows.

[Richard Buttrey]

Ok, this is an easy one for all you experts out there. What I need to do is every 12 rows of normal height, I need to insert a row that is 5 times that height. So, 12 rows at 15, then 1 row at 75, 12 rows at 15, 1 at 75, and so on. This needs to span about 3000 rows. There has got to be an easier way to do this than changing every 13th row one at a time but I don't know what it is. Can anyone help on this??

Hi,

The following VBA procedure will do it. Change the loop counter 3000 if the number of rows are different, or the starting A1 point if necessary.

Sub SetRowHeights()
Dim x As Integer
Application.ScreenUpdating = False
For x = 1 To 3000 / 13
    Range("A1").Cells(x * 13).RowHeight = 75
Next x
End Sub

Rgds