Autofit row height in only some rows
 

Is it possible to change this macro to only autofit the row height on rows
254-332 in the workbook? I am using this macro:

Option Explicit
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Application.EnableEvents = False
Sh.Rows.AutoFit
Sh.Rows("1.33").AutoFit
Application.EnableEvents = True
EndSub

Thanks in advance for your help.

Autofit row height in only some rows
 

VBA Code:
--------------------


Option Explicit
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Application.EnableEvents = False
Sh.Rows("254:332").AutoFit
Application.EnableEvents = True
EndSub
--------------------


?


--
p45cal

*p45cal*
------------------------------------------------------------------------
p45cal's Profile: http://www.thecodecage.com/forumz/member.php?u=558
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=203770

http://www.thecodecage.com/forumz