HI everyone,

I have a bit of code that I have been trying to get to work but haven'
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 cell
that have formulas in them

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

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

Thanks for your tim

--
mav9
-----------------------------------------------------------------------
mav93's Profile: http://www.excelforum.com/member.php...fo&userid=3159
View this thread: http://www.excelforum.com/showthread.php?threadid=51286