Фильтрация по части слова

[Boombeat]

Подскажите как мне изменить эту строчку чтобы фильтр работал с условием "Содержит"?
Selection.AutoFilter Field:=1, Criteria1:=TextBox1.Value, Operator:=xlAnd

[rok]

Selection.AutoFilter Field:=1, Criteria1:="=*" & textbox1.Value & "*", Operator:=xlAnd
Еще нужно указать где находится textbox1
А вобще в Excel можно автоматически записать макрос и просмотреть его.