Filter mit ComboBox/Kombinationsfeld einbauen

Private Sub ComboBox1_Change()
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=ComboBox1.Value
End Sub

Funktioniert soweit, jedenfalls beim ersten mal. Danach bricht er beim "Selection.AutoFilter" ab, da er ja schon einen Filter in Zelle A1 findet. Mit Recorder geht das nicht, da der Befehl zum Einschalten undAusschalten ja genau gleich lautet (Wird nur Aktiv/inaktiv gesetzt auf dem Menu Pulldown bei Filter)
Wieso bricht er dort ab, und wie behebe ich das?
Gruss
Rolf