Thanks all for the prompt response.
Timing could not have been better.

Rick, I used your code (with good success).
I will yet try out Jacobs code, as well.


"Rick Rothstein" wrote:

You could do what you want this way...

Sub AdjustRowHeights()
Dim V As Variant, ShortRows As Variant
ShortRows = Array(6, 9, 14, 18, 24, 30)
Rows("4:184").RowHeight = 12.75
For Each V In ShortRows
Rows(V).RowHeight = 3.75
Next
End Sub

Just put your list of rows in the Array function call.

--
Rick (MVP - Excel)


"BEEJAY" wrote in message
...
Hello all:

Looking to adjust row heights of a 185 row w/sheet.
First I use: Rows("4:184").RowHeight = 12.75
I expect this should work quickly and efficiently.

I don't quite know what to do with the "exceptions" rows.
I could use: Rows("6:6, 9:9, 14:14, 18:18, 24:24, 30:30,
ETC......").RowHeight = 3.75
But there are over 30 rows that need to be referenced. The double row
references become cumbersome and don't really add to the clarify of the
code.

I'd like to use something like:
SRow = Short Rows
Short Rows = (6, 9, 14, 18, 24, 30, etc........)

Then: SRow.Row Height = 3.75.
If something like this can be done, I think it would be "easier" to read
and
also to adjust, if and as required.

Thanks


.