A family of Microsoft spreadsheet software with tools for analyzing, charting, and communicating data.
- Make a backup of your workbook.
- Open your workbook and ALT+F11
- Locate your Workbook name in Project Explorer Window
- Double click on your worksheet name
- Copy paste the Macro code given below
- Save your file as .xlsm
- If you want to add / change conditions change appropriately
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ExitSub
If Target <> Me.Range("C16") Or Target = "" Then Exit Sub
Application.EnableEvents = False
Select Case Target
Case 1 To 3
Rows("17:18").EntireRow.Hidden = True
Rows(17).EntireRow.Hidden = True
Rows(19).EntireRow.Hidden = False
Case 4 To 6
Rows(17).EntireRow.Hidden = True
Rows(19).EntireRow.Hidden = True
Rows(18).EntireRow.Hidden = False
Case 7 To 9
Rows("18:19").EntireRow.Hidden = True
Rows(17).EntireRow.Hidden = False
Case Else
Rows("17:19").EntireRow.Hidden = False
End Select
ExitSub:
Application.EnableEvents = True
End Sub