Run-Time error 424 Object required

[Dspace]

Think I've got a simple error here. I keep getting the Object required error on the following.

Sub UnHideITSC()
ActiveSheet.Unprotect Password:="test$"
For Each cell In Range("b14:b405")
If cell.Value = 1 Then
entire.Row.unHidden
Else: entire.Row.Hidden
End If
Next cell
ActiveSheet.Protect Password:="test$"
End Sub

I know its going to be something simple but its really aggravating me. Thanks!
Don't forget to vote tomorrow!

 

[Fluff]

Hi & welcome to MrExcel.
How about

Sub UnHideITSC()
ActiveSheet.Unprotect Password:="test$"
For Each cell In Range("b14:b405")
   If cell.Value = 1 Then
      cell.EntireRow.Hidden = False
   Else
      cell.EntireRow.Hidden = True
   End If
   Next cell
ActiveSheet.Protect Password:="test$"
End Sub

 

[nemmi69]

Try

Sub UnHideITSC()
ActiveSheet.Unprotect Password:="test$"
For Each cell In Range("b14:b405")
    If cell.Value = 1 Then
        Rows(cell.Row).Hidden = False
    Else
        Rows(cell.Row).Hidden = True
    End If
Next cell
ActiveSheet.Protect Password:="test$"
End Sub

 

[Fluff]

You can also get rid of the If like

Sub UnHideITSC()
ActiveSheet.Unprotect Password:="test$"
For Each cell In Range("b14:b405")
   cell.EntireRow.Hidden = cell.Value <> 1
Next cell
ActiveSheet.Protect Password:="test$"
End Sub

 

[Dspace]

Thank you all!
My forehead & monitor thank you! (They were about to meet at fast speeds)
Just learning to expand my VBA knowledge.

 

[Fluff]

Glad we could help & thanks for the feedback.

 

[nemmi69]

your welcome