Autofilter mit 4 oder mehr Kriterien

Hallo zusammen
Habe diesen Code vom Internet, es sollen vier Filterkriterien (ODER, alle Zeilen die eines der Kriterien enthalten, sollen angezeigt werden) gefiltert werden.
Jedoch funktioniert der Code nicht. Der Filter ist auf Zeile 3, Spalte G. Wenn ich nur ein Filterkriterium schreibe, dann funktionierts.
Kann mir jemand auf die Sprünge helfen?
Vielen Dank schon jetzt für jede Unterstützung.

Sub AutofilterProdukt_Madopar3()
ActiveSheet.Range("A4:R10000").AutoFilter Field:=7, Criteria1:=Array( _
"*Madopark*", "*Madopar*", "*Prolopa*", "*Restex*"), Operator:=xlFilterValues
End Sub