Napíš, čo znamená: Private Sub Worksheet_Change(ByVal Target As Range)
Napíš, čo znamená: Set aCell = Range("A1")
Napíš, čo znamená: Set aCell = Range("A2")
Napíš, čo znamená: Set aCell = Range("A3")
Napíš, čo znamená: Set aCell = Range("A4")

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

Je to dosť zrozumiteľné, čo tým chcem?