After doing the autofit run this. This will add 40 to each row within
the loop. If you only want to extend those over a cerain size put in an
"if " to test the row height first.
Dim i As Integer
Dim rng As Range
Set rng = Range("1:1")
For i = 1 To 50
rng.Offset(i).RowHeight = rng.Offset(i).RowHeight + 40
Next
best wishes
Tony
--
tony h
------------------------------------------------------------------------
tony h's Profile:
http://www.excelforum.com/member.php...o&userid=21074
View this thread:
http://www.excelforum.com/showthread...hreadid=515512