dont know how to read this to sort it out

[alan myers]

the error is in red I don't know how to read this to sort it out

Private Sub Worksheet_Calculate()

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

' Set range equal to all of column B down to last row of data
Set rng = Range("B2:B" & Cells(Rows.Count, "B").End(xlUp).Row)

' Loop through all 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 file https://www.mediafire.com/file/qanm3q1r1q6j4yc/Payroll+v7.1.xlsm/file

 

[alan myers]

hide show

 

[alan myers]

hide show

 

[Fluff]

In that case remove the worksheet calculate event from the cover sheet.

 

[alan myers]

hide show

 

[alan myers]

they toldf me to put it on there to make it do what i wanted

 

[Fluff]

Who told you?

 

[alan myers]

ok that fixes it thank you

 

[alan myers]

thank you very much you guys help a lot for us new guys

 

[Fluff]

Glad it's sorted & thanks for the feedback.