VBA/Excel combobox

Hej
Jeg har et regneark, hvor jeg har en sub i module1 som laver en combobox med følgende kode:
Public Sub sæt_combo(ark, lf, tp, wh, hg, navn, dat)
    Worksheets(ark).OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
        DisplayAsIcon:=False, Left:=lf, Top:=tp, Width:=wh, Height:= _
        hg).Select
    With Selection
        .Name = navn
        .ListFillRange = dat 
    End With
End Sub

Arket, som combobox'en sættes i, genereres (via Sheets.Add.Name = ark) af en tidligere sub i module1

Arket skal til sidst flyttes (via ActiveSheet.Move) og gemmes som et selvstædig regneark, men inden dette skal jeg gerne have output fra combobox'en via en change_event eller anden event, da dette skal styre andet i dette genererede ark.

Hvordan laver jeg en sub i module1 med en change_event for arket ark?

På forhånd tak fra lonny