Not Working : Worksheet_Change Event

Hi
Request help on the below-
I have to call a procedure on worksheet change as mentioned below. But my problem here is, the value in "D2" is changed from a user form and that is not triggering the worksheet change event. Codes are in two different workbooks.
How to call a procedure based on a change in cell value in WB1 by another procedure in WB2?

Code:

---

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$2" Then Call List_Assignments
End Sub

---

Code:

---

Sub ComboBox1_Change()
    BaseWS.Range("D2").Value = ComboBox1.Value
End Sub

---

Thanks in advance!

I guess maybe something like:

Code:

---

Application.Run "'" & Workbooks(2).Path & "\RunMyMacros.xlsm'!Module1.List_Assignments"

---

Maybe ...

Don't use Worksheet_Change event, and pass the value that you put into D2 as a parameter to ListAssignments

Code:

---

Sub ComboBox1_Change()

---

Code:

---

    BaseWS.Range("D2").Value = ComboBox1.Value
    Call List_Assignments (ComboBox1.Value)

End Sub

---

Thanks!
It worked

Code:

---

Sub combb_vertical_Change()
    BaseWS.Range("D2").Value = combb_vertical.Value
    combb_assignment.Value = ""
    Application.Run ("'Time Sheet Data.xlsb'!List_Assignments")
    combb_assignment.List = BaseWS.Range("D4:D" & BaseWS.Range("D4").End(xlDown).Row).Value
End Sub

---

Thanks Paul!
I got your point but not sure how to do it.

Request if someone can check my codes and suggest if any better way of doing it. Currently it is working, but I'm sure it can be done in a matured way as I have prepared it based on my basic understanding and searching on the web.

There are two workbooks
(1) Time Sheet - Form.xlsm - This will be finally saved as an add-in and will be used by me and my department staffs
(2) Time Sheet Data.xlsb - Used for storing data from the above form. This file will be located in OneDrive.

Thanks in advance!

These are the highlights, but search for !!!! in both WB projects. I used !!!! as a marker for lines I changed

Code:

---

'!!!
    Call Application.Run("'Time Sheet Data.xlsb'!List_Assignments", combb_vertical.Value)

---

and

Code:

---

'!!!! 1. Added Thisworkbook
'!!!! 2. Added 'dot' to Rows
'!!!! 3. Added parameter to List_Assignments


'!!!!
Sub List_Assignments(Vert As String)
    Dim lastrow As Long, i As Long, x As Long
    Application.EnableEvents = False
    lastrow = Range("L4").End(xlDown).Row
    ThisWorkbook.Sheets("Base").Range("D4:D50").Clear
    x = 4
    With ThisWorkbook.Sheets("Base")
        For i = 4 To lastrow
'!!!!
            If (.Cells(i, 12) = Vert) And (.Cells(i, 15) = "Open") Then
                .Cells(x, 4) = .Cells(i, 13).Value
                x = x + 1
            End If
        Next i
        .Range("D3", .Range("D" & .Rows.Count).End(xlUp)).Sort _
                    Key1:=.Range("D3"), Header:=xlYes
    If x = 4 Then .Range("D4").Value = "No Assignments Found"
    End With
   
    Call EndOfListAssignments
    Application.EnableEvents = True
End Sub

---

See if these changes work

Thanks a lot Paul for your time and support