Combobox in Tabellenblatt

Private Sub combo_Change()
Dim zelle As Range
Set zelle = ActiveCell
ActiveCell.Value = CSng(combo.Text)
zelle.Select
End Sub

Wenn ich meinen Wert in der Combobox aber nicht wechsle komm ich natürlich nicht zu meinem change-Ereignis.

Wie kann ich dann trotzdem den Focus wieder in eine Zelle setzen?
Gibts da nicht eine ganz einfache Eigenschaft?

So gehts nicht: (die auskommentierten Zeilen würden das "aufklappen" der combobox gar nicht zulassen!)

Private Sub Tag_comb_GotFocus()
'Dim zelle As Range
'Set zelle = ActiveCell
ActiveCell.Value = CSng(combo.Text)
'zelle.Select
End Sub

Vielen Dank
Wolfgang