Adjust row heights of non-contiguous rows.

[BEEJAY]

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

 

[Ryan H]

Is it always the same rows that are 3.75 or 12.75 in height or does it vary?
If it varies, what determines if it is a Short Row or not? Kinda need that
inorder to help you out.

 

[Jacob Skaria]

Try the below

Dim rngTemp As Range
Set rngTemp = Range("A6,A9,A14,A18,A24,A30")
rngTemp.RowHeight = 8

 

[Rick Rothstein]

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.

 

[BEEJAY]

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.