Reset to full rows visible

[Max]

Trying the sub below from a Mike H post
How do I reset it to full rows visible if I were to click on a cell other
than A1 or A2?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Address
Case Is = ("$A$1")
Rows("10:20").EntireRow.Hidden = True
Rows("21:40").EntireRow.Hidden = False
Case Is = ("$A$2")
Rows("10:20").EntireRow.Hidden = False
Rows("21:40").EntireRow.Hidden = True
End Select
End Sub

 

[Gary Keramidas]

try this:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Address
Case Is = ("$A$1")
Rows("10:20").EntireRow.Hidden = True
Rows("21:40").EntireRow.Hidden = False
Case Is = ("$A$2")
Rows("10:20").EntireRow.Hidden = False
Rows("21:40").EntireRow.Hidden = True
Case Else
Rows("10:40").EntireRow.Hidden = False
End Select
End Sub

 

[Max]

Thanks, Gary
That works well

 

[Dave Peterson]

Just from a user standpoint, I'd plop some buttons from the forms toolbar into
those cells and assign a macro to hide/unhide to each macro.

 

[Max]

Thanks for your views, Dave

 

[Max]

Thanks for the alternative, Charlotte