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
Powered by vBulletin® Version 4.2.5 Copyright © 2024 vBulletin Solutions Inc. All rights reserved.