Run time error 1004-some pretty simple VBA.

[garyi]

Hello everyone.

I have a really confusing issue with some pretty simple VBA.

The user is presented with thirteen pop up boxes with a simple Yes or No. If the use selects yes then this reveals some cells if no then they remain hidden.

here is the problimatic code:

Sub hide6()

Application.ScreenUpdating = False
Application.EnableEvents = False
ActiveSheet.Unprotect
    If Range("K13").Value = "2" Then
        Range("164:180").EntireRow.Hidden = True
        
    Else
        Range("164.180").EntireRow.Hidden = False
      
    End If
    ActiveSheet.Protect
Application.ScreenUpdating = True
Application.EnableEvents = True

End Sub

It looks alright to me, and infact the other 12 are identical to this except the ranges and sub name are different.

Its only this one that reports the error.

I have checked and rechecked the actual cell ranges incase any thing funky is there but there is nothing. No ranges over lap each other in the modules so I am at a loss really.

Any ideas?