VBA code stops working after a few minutes

[alan myers]

Private Sub Worksheet_Change(ByVal Target As Range)

Dim rng As Range
Dim cell As Range
Dim fr As Long
Dim lr As Long

' See if cell in cell B manually updated
Set rng = Intersect(Target, Range("B:B"))
If rng Is Nothing Then Exit Sub

' Loop through updated cells in column B
For Each cell In rng
' Capture rows to update
fr = Cells(cell.Row, "C").Value
lr = Cells(cell.Row, "D").Value
' Determine to hide or unhide rows
Select Case UCase(cell)
Case "Y"
Sheets("Cover Sheet").Rows(fr & ":" & lr).Hidden = True
Case "N"
Sheets("Cover Sheet").Rows(fr & ":" & lr).Hidden = False
End Select
Next cell

End Sub

 

[My Aswer Is This]

Tell me in words what you're trying to accomplish.
Please be specific.

 

[alan myers]

on show hide tab if b2 = y, then take c2 value as start and d2 value as the end and on
cover sheet tab hides rows c2 thru d2, but if b2 = n, it unhides it
it checks this for b2 thru b196

 

[bebo021999]

it works for me.
What do you mean by "stop working after few minutes"?
Does code work for the first run? second run?
At does not after few minutes from last run?

 

[Fluff]

Duplicate so closed.