I want to change the height of every 4th row. Is this possible? Thanks!

Ok, try this:
Sub demo()
Dim i As Integer
With Range("a1")

For i = 1 To 200

..Offset(i * 4, 0).Select
Selection.RowHeight = 25

Next i
End With

End Sub



--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.


"Di_W" wrote:

I want to change the height of every 4th row. Is this possible? Thanks!

Manually

Enter numbers 1 to 4 in an unused column.

Select those 4 cells and right-click drag down as far as you wish.

Release and "copy cells"

Autofilter for number 4

Then F5SpecialVisible Cell OnlyOK

FormatRowHeight........set a height.

Get rid of Autofilter. Delete unused column.

Or run a macro.

Sub rowht()
For i = 4 To Cells(Rows.Count, "a").End(xlUp).Row Step 4
Rows(i).RowHeight = 24
Next i
End Sub


Gord Dibben MS Excel MVP


On Mon, 11 Jan 2010 12:16:02 -0800, Di_W
wrote:

I want to change the height of every 4th row. Is this possible? Thanks!