Maybe ...

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



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

End Sub