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.

 

[Charlotte E.]

This only takes up 3 lines:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Rows("10:40").EntireRow.Hidden = False
If Target.Address = "$A$1" Then Rows("10:20").EntireRow.Hidden = True
If Target.Address = "$A$2" Then Rows("21:40").EntireRow.Hidden = True

End Sub


I admit: It is not using Select...Case, which is normally preferable, but it
cuts down on the code, and makes it appear more neat


CE

 

[Max]

Thanks for your views, Dave

 

[Max]

Thanks for the alternative, Charlotte