Hiding Rows Using If Then and If Then Else Statements - Help!

Hello,

I have a spreadsheet that I have successfully used VBA to hide rows based on certain criteria in the past. The top two if then statements worked fine. I tried to add the IfElse statement and now, none of it works. Any ideas? Thanks!

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("C4").Value = "Tacoma Office" Then
Rows("34:35").Hidden = False
Else
Rows("34:35").Hidden = True

End If

If Range("C4").Value = "Tacoma" Then
Rows("36:40").Hidden = True
Else
Rows("36:40").Hidden = False
End If

If Range("C4").Value = "Tacoma Office" Then
Rows("61:65").Hidden = True
ElseIf Range("C4").Value = "Spokane Office" Or Range("C4").Value = "Boise Office" Or Range("C4").Value = "Walla Walla Office" Then
Rows("60, 62:65").Hidden = True
ElseIf Range("C4").Value = "Federal Way Office" Then
Rows("60:61, 63:65").Hidden = True
ElseIf Range("C4").Value = "Seattle Office" Then
Rows("60:62, 64:65").Hidden = True
ElseIf Range("C4").Value = "Portland Office" Or Range("C4").Value = "Eugene Office" Then
Rows("60:63, 65").Hidden = True
ElseIf Range("C4").Value = "Anchorage Office" Or Range("C4").Value = "Juneau Office" Then
Rows("60:64").Hidden = True
Else
Rows("61.65").Hidden = False
End If
End Sub


THANKS!

Try something like this...

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Target.Address(0, 0) = "C4" Then
    
        Rows("34:35").Hidden = Not Target.Value = "Tacoma Office"
        Rows("36:40").Hidden = Not Target.Value = "Tacoma"
        
        Rows("60:65").Hidden = False    'Unhide all
        Select Case Target.Value
            Case "Tacoma Office": Range("61:65").Rows.Hidden = True
            Case "Spokane Office", "Boise Office", "Walla Walla Office": Range("60:60, 62:65").Rows.Hidden = True
            Case "Federal Way Office": Range("60:61, 63:65").Rows.Hidden = True
            Case "Seattle Office": Range("60:62, 64:65").Rows.Hidden = True
            Case "Portland Office", "Eugene Office": Range("60:63, 65").Rows.Hidden = True
            Case "Anchorage Office", "Juneau Office": Range("60:64").Rows.Hidden = True
        End Select
        
    End If
    
End Sub

I figured it out! THANKS!!

Thanks! It mostly worked! My only question is that at the top, I want rows 36-40 Hidden for Tacoma and not Hidden for the rest and this is doing the opposite. What word do I use to replace the "Not" in this line: Rows("36:40").Hidden = Not Target.Value = "Tacoma"??

I will see if I can find the answer via google as well. Thanks again! I really appreciate your help!!

The opposite of Not is to remove the word Not.