Wenn man auf das Ändern eines Dropdowns oder einer Zelle/Range reagieren will und eine andere Aktion ausführen will, dann kann man dies mittels des Worksheet_Change Events und am besten mittels eines benamten Bereiches /Ranges:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim checkTarget As Range
Set checkTarget = Application.Intersect(Target, Range("my_named_range"))
If checkTarget Is Nothing Then
Debug.Print "not active range, exit"
Else
MsgBox "success"
End If
End Sub