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