How to link two criteria to hide/unhide sheets?

[povictory]

Hello,

Very much a VBA novice here. I have some code below that has been very helpful in hiding/unhiding sheets based on input in a cell. However, I'm looking for a way to combine the two criteria so that the sheet will be unhidden if *both* M26=YES and if M9<>0. If either of those conditions are *NOT* met, I'd like for the sheet to be hidden. I've been doing a lot searching around and experimenting but I haven't been able to get anywhere. Any advice on how I can modify the code below to make the visibility of the sheet dependent on both conditions?

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Whoa
   
    Application.EnableEvents = False
   
    If Not Intersect(Target, Range("M26")) Is Nothing Then _
    Sheet15.Visible = (UCase(Trim(Range("M26").Value2)) = "YES")
    
    If Not Intersect(Target, Range("M9")) Is Nothing Then _
    Sheet15.Visible = (Len(Trim(Range("M9").Value2)) <> 0)  
    
   
Letscontinue:
    Application.EnableEvents = True
    Exit Sub
Whoa:
    MsgBox Err.Description
    Resume Letscontinue
End Sub

 

[rollis13]

This could be a solution:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Whoa
    Application.EnableEvents = False
    If Not Intersect(Target, Range("M26", "M9")) Is Nothing Then
        If (UCase(Trim(Range("M26").Value2)) = "YES") And (Len(Trim(Range("M9").Value2)) <> 0) Then
            Sheet15.Visible = True
        Else
            Sheet15.Visible = xlSheetHidden
        End If
    End If
Letscontinue:
    Application.EnableEvents = True
    Exit Sub
Whoa:
    MsgBox Err.Description
    Resume Letscontinue
End Sub

 

[povictory]

This worked perfectly...thank you!

 

[rollis13]

Thanks for the positive feedback, glad having been of some help.