You can adjust Row ** Height ** or Column ** Width ** Below does Height.

Dim rng as Range
Dim i as long
set rng = Range("LargeRange")
for i = rng.rows(1).row to rng.rows(rng.rows.count).row step 3
cells(i,1).EntireRow.Height = 15
Next

--
Regards,
Tom Ogilvy

Jay wrote in message
...
I need to adjust the width of every third row (empty) in a
large range. Thanks in advance

Jay