Autofilter per Makro setzen

Sub Standardfilter_setzen()
Select Case ActiveSheet.CodeName 'alternative ActiveSheet.Name
Case "sht_xyz"
Selection.AutoFilter Field:=39, Criteria1:="=offen", Operator:=xlOr, _
Criteria2:="=in Arbeit"
Selection.AutoFilter Field:=22, Criteria1:="=mittel", Operator:=xlOr, _
Criteria2:="=hoch"
Case "xxx"
dummy = 1
Case Else
dummy = 1
End Select
End Sub

Funktioniert zunächst gut - aus dem Sheet sht_xyz wird der Autofilter richtig gesetzt, aus anderen Sheets eben nicht.
Nun füge ich eine Spalte im Autofilterbereich ein, dann verschieben sich die Fields und nix geht mehr.
Also wäre mir lieber, nicht die Fields einzutragen, sondern den Eintrag im Spaltenkopf festzulegen, das Makro soll dann die Fieldnummer suchen und anschliessend filtern.
Leider hab ichs nicht hingekriegt. Wer hat einen Vorschlag ?
Danke
Zusatzaufgabe: Die Filterkriterien sollen nicht im Makro festgelegt werden, sondern im Kommentar im Spaltenkopf