Опять насчет автофильтра

[hardas]

Есть файл. Фильтр в этом файле умеет отфильтровывать нужную дату из всего списка и копировать на другой лист. Файл во вложении.
А не подскажете, как реализовать последовательность действий, когда фильтр не дату отфильтровывает, а месяц, указанный в ячейке.
Например список из дат "11.05.2012, 12.05.2012, 11.06.2012, 12.06.2012". Условие поиска "май". Фильтр выдает и копирует на другую страницу "11.05.2012, 12.05.2012".

[RAN.]

Вот объясните, зачем в выложенном файле пустая форма и полтора десятка пустых модулей? Чтобы в прятки поиграть? Ау, макрос, где ты?
Рекордер говорит - так!

Sub Макрос4()
' Макрос4 Макрос
    ActiveSheet.Range("$A$1:$F$6").AutoFilter Field:=6, Operator:= _
        xlFilterValues, Criteria2:=Array(1, "5/31/2012")
End Sub

[hardas]

Спасибо за вариант. Рекордер много чего говорит, только этот макрос не работает у меня. Дебаггер ругается.
А модулей там куча потому что было много листов с нерабочими макросами, макросы удалил, а листы похоже остались.
И макросы там есть. Если в в документы выбрать Сервис/макрос/макросы/, то в открывшемся окне будет список макросов, нажать изменить и он покажет код этого макроса.

[hardas]

Ну так что, ни у кого вариантов нет?