View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.misc
tony h
 
Posts: n/a
Default How do I modify the autofit function in Excel?


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