Hide/Unhide Rows based on a calculated cell

[tomwhi]

Hi team,

Please can you help me with the following scenario.

I have a calculated cell (D13) which can either be (All), Grade or Rate.

If D13 = (All), I would like Rows 19:52 to be hidden
If D13 = Grade, Only Rows 19:20 to be hidden
If D13 = Rate, Only Rows 22:52 to be hidden

Thank you as always
Tom

 

[VoG]

Right click the sheet tab, select View Code and paste in

Private Sub Worksheet_Calculate()
Application.ScreenUpdating = False
Application.EnableEvents = False
Rows("19:52").Hidden = False
Select Case Range("D13").Value
    Case "(All)": Rows("19:52").Hidden = True
    Case "Grade": Rows("19:20").Hidden = True
    Case "Rate": Rows("22:52").Hidden = True
End Select
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

 

[tomwhi]

Right click the sheet tab, select View Code and paste in

Private Sub Worksheet_Calculate()
Application.ScreenUpdating = False
Application.EnableEvents = False
Rows("19:52").Hidden = False
Select Case Range("D13").Value
    Case "(All)": Rows("19:52").Hidden = True
    Case "Grade": Rows("19:20").Hidden = True
    Case "Rate": Rows("22:52").Hidden = True
End Select
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

Excellent! thank you