V příloze posílám vzor.

1 Řádek 5 je skrytý u vzoru je skrytý
2 Řádek 6 by se měl skrýt což nejde

Private Sub Worksheet_Change(ByVal Target As Range)
Set aCell = Range("A1")

If Not Intersect(Target, aCell) Is Nothing Then
Range("5:5").EntireRow.Hidden = aCell = "1"
Range("6:6").EntireRow.Hidden = aCell = "2"
Range("7:7").EntireRow.Hidden = aCell = "3"
Range("8:8").EntireRow.Hidden = aCell = "4"
End If
End Sub