Run-time error 1004: unable to set the hidden property of the range class

[KMH]

Hi,

I have 5 rows (rows 58:63) that are to be hidden or unhidden depending on the value (Y/N) of another cell (I36).

What code do I use to allow it to continue to hide and unhide those rows depending on the value of cell I36?

 

[KMH]

If I36="N" then hide rows 58:63.
If I36="Y" then unhide rows 58:63

Please see code used below:

Dim iCell As Range: Set iCell = Intersect(Range("I36"), Target)
If iCell Is Nothing Then Exit Sub

Select Case iCell.Value
Case "N"
Rows("52:56").Hidden = False
Rows("58:63").Hidden = True
Case "Y"
Rows("52:56").Hidden = False
Rows("58:63").Hidden = False
'Case Else ' do nothing

End Select