Worksheet Change ByVal For Multiple Cells in Worksheet

[teksp0rt]

Hello, I am seeking assistance to combine these two event procedures into one Worksheet. It has been a long time since writing any code. The idea is that if I change Range F9 on my worksheet (variables are yes or no) and/or Range E9 on my worksheet (variables are yes or no) - a macro event will run. They are not dependent variables. I cut down the rest of the code, just to show a simple example of two Private Subs that I would like to execute as 1 Sub. Thank you.

----------

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Comparison As Range

Set Comparison = Range("F9")

If Not Intersect(Target, Comparison) Is Nothing Then
Select Case Comparison
Case "Yes": PerformRentComparison
Case "No": HideRentComparison
End Select


End If

End Sub


Private Sub Worksheet_Change(ByVal Target As Range)

Dim SecondFloor As Range

Set SecondFloor = Range("F10")

If Not Intersect(Target, SecondFloor) Is Nothing Then
Select Case SecondFloor
Case "Yes": ShowUpstairsUnits
Case "No": HideUpstairsUnits
End Select
End If

End Sub

 

[My Aswer Is This]

Try this:
Modify Msgbox example with your script name

Private Sub Worksheet_Change(ByVal Target As Range)
    'Modified  11/9/2022  10:39:33 PM  EST
If Target.Address = "$F$9" Or Target.Address = "$F$10" Then
If Target.Cells.CountLarge > 1 Or IsEmpty(Target) Then Exit Sub

Select Case Target.Value
    Case "Yes"
        MsgBox "Yes"
     Case "No"
        MsgBox "No"
End Select
End If
End Sub