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

 

[Fluff]

What is the error?

 

[alan myers]

i don't know what to do

 

[Fluff]

Try answering my question.

 

[alan myers]

I cant see what good this is sorry

 

[alan myers]

fr = Cells(cell.Row, "C").Value
run time error '13'
\

 

[alan myers]

sorry i am new tyo this

 

[Fluff]

Ok what exactly is in that cell when you get the error?

 

[alan myers]

a number 3

 

[Fluff]

What sheet is this in?