can you help me figure out - something is wrong with the code and I'm unable to figure out. The code does not auto hide/unhide the rows
VBA Code:
Private Sub Worksheet_Changes(ByVal Target1 As Range)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
If Target1.Address = "$B$12" Then
Dim b12val As String
Sheets("RawData").Rows.Hidden = False
b12val = Target1.Value
If b12val = 0 Then
Sheets("RawData").Range("A13:B27").EntireRow.Hidden = True
ElseIf b12val = 1 Then
Sheets("RawData").Range("A16:B27").EntireRow.Hidden = True
ElseIf b12val = 2 Then
Sheets("RawData").Range("A19:B27").EntireRow.Hidden = True
ElseIf b12val = 3 Then
Sheets("RawData").Range("A22:B27").EntireRow.Hidden = True
ElseIf b12val = 4 Then
Sheets("RawData").Range("A25:B27").EntireRow.Hidden = True
ElseIf b12val = 5 Then
Sheets("RawData").Rows.Hidden = False
End If
End If
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub