Sortierung bei Click auf Feld

vielleicht weiss jemand weiter! Ich suche eine Loesung bei:

Bei Click auf bestimmtes Feld soll diese Subroutine sortieren

Sub ComboBox13_Change()
'Sort by Week 1
Selection.Sort Key1:=Range("D9"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

Ich weiss nicht wie ich das "Click" loese!

Danke im Voraus fuer die Antwort.