Автофильтр по дате в vba

Формулировка задачи:

Помогите, пожалуйста, побороть...
Excel, фильтрую из первого файла второй, и вставляю результат в первый:

Dim packDate1, DelivDate1 As Date
packDate1 = ThisWorkbook.Sheets(1).Range("B1")
DelivDate1 = ThisWorkbook.Sheets(1).Range("B2")
Workbooks.Open Filename:="test.xls", ReadOnly:=True
Sheets(strYear).Select
With ActiveSheet
    .Range("C2").AutoFilter Field:=3, Criteria1:=DateValue(packDate1)
    .Range("E2").AutoFilter Field:=5, Criteria1:=DateValue(DelivDate1)
End With

...
В Еxcel 2007 все работает, фильтр отбирает записи.
В Еxcel 2010 этот же файл не работает, фильтр пустой.
Ячейки В1, В2, столбцы С2 и Е2 датовые.
Региональные настройки - Русский (Россия).
Заранее благодарен.

Решение задачи: «Автофильтр по дате в vba»

textual
                            Листинг программы 
                        
                            Criteria1:=CDbl(DateValue(packDate1))