Private Sub Worksheet_Calculate()
'Sheet module code, like: Sheet3!
Dim myRng As Range
On error goto ErrHandler
Application.EnableEvents = False
calc = Application.Calculation
Application.Calculation = xlManual
Set myRng = Range("L9", Range("L208"))

Application.ScreenUpdating = False
For Each c In myRng
If c.Value = "" Then c.EntireRow.Hidden = True

If c.Value < "" Then c.EntireRow.Hidden = False
Next c

ErrHandler:
Application.Calculation = calc
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

Might help.


--
Regards,
Tom Ogilvy


"mav93" wrote in
message ...

HI everyone,

I have a bit of code that I have been trying to get to work but haven't
had any luck.

Private Sub Worksheet_Calculate()
'Sheet module code, like: Sheet3!
Dim myRng As Range

Set myRng = Range("L9", Range("L208"))

Application.ScreenUpdating = False
For Each c In myRng
If c.Value = "" Then c.EntireRow.Hidden = True

If c.Value < "" Then c.EntireRow.Hidden = False
Next c

Application.ScreenUpdating = True
End Sub


Cells L9 - L208 all have formula in them that are tied to other cells
that have formulas in them

when I run the above code any change that I make to the workbook not
just the worksheet that the code is in weather or not it effects cells
L9 - L208 causes lines to be hidden or unhidden and my screen to start
blinking. I have to hit the escape key and end or debug to regain
control of excel.

Any ideas where I went wrong would be appreciated, I pretty new to VBA
so I'm sorry that I don't know how to explain my self better.

Thanks for your time


--
mav93
------------------------------------------------------------------------
mav93's Profile:
http://www.excelforum.com/member.php...o&userid=31592
View this thread: http://www.excelforum.com/showthread...hreadid=512860