PDA

View Full Version : Solved: RowHeight - Multiple



Philcjr
11-16-2005, 12:25 PM
All,

Is there a cleaner way of doing this, as I have many more rows with different hieghts?

Range("19:19,22:22,25:25,28:28,31:31,34:34").RowHeight = 15.75

Phil

mvidas
11-16-2005, 12:38 PM
Hi Phil,

If I understand you correctly, you could do something like: Dim i As Long
For i = 19 To 34 Step 3
Rows(i).RowHeight = 15.75
NextAlternately, if you wanted to change the height on every 3rd row until the end of the sheet, you could use Dim i As Long
i = 19
Do Until Intersect(Rows(i), ActiveSheet.UsedRange) Is Nothing
Rows(i).RowHeight = 15.75
LoopMatt

Philcjr
11-16-2005, 12:42 PM
Thanks Matt,

I was hoping to do something like...

Rows(16,37,58,79).RowHeight = 15.75 Nice and neat:cloud9:

I will be using your first example, thanks
Phil