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

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

--


Gary

"Max" wrote in message
...
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

Thanks, Gary
That works well

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 wrote:

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

--

Dave Peterson

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

End SubMax wrote:
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

Thanks for your views, Dave

Thanks for the alternative, Charlotte