How to run a second sub after another cell in the same sheet is updated

[dpaton05]

I have a sheet with 2 cells that get data entered, B18,B20. After B20 is updated, a sub runs. I also need another sub to run after B25 and B27 is updated.

This is the code to run the first sub. After B27 is updated I need another sub to run. Do I include a second instance of "if Not Intersect"?

Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As Range)
    Dim Req As Range, PO As Range, CancelReq As Range, CancelDate As Range

    With Worksheets("Totals")
            Set Req = Range("B18")
            Set PO = Range("B20")
            Set CancelReq = Range("B25")
            Set CancelDate = Range("B27")
            If Not Intersect(Target, PO) Is Nothing Then
                Application.EnableEvents = False
                If PO <> "" And Req <> "" Then Call UpdateEverySheet(Req, PO)
                PO.ClearContents
                Req.ClearContents
                'Application.EnableEvents = True
            End If
           
    End With

 

[LazyBug]

Do I include a second instance of "if Not Intersect"?

Yes. Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, CancelReq) Is Nothing Then ...
If Not Intersect(Target, CancelDate) Is Nothing Then ...

 

[dpaton05]

Thanks