есть макрос, запускающийся при открытии файла эксель

Sub Workbook_Open()
Dim myPath As String
Application.ScreenUpdating = False
With Application.FileDialog(msoFileDialogOpen)
.Filters.Clear
.Filters.Add ("DBF Files"), ("*.dbf")
.Title = "Укажите DBF файл!"
.Show
If .SelectedItems.Count = 0 Then Exit Sub
myPath = .SelectedItems(1)
End With

при открытии файла фильтр файлов в диалоговом окне открытия файла почему =-то не срабатывает, а если запустить макрос вручную - фильтр работает. в чем прикол - не пойму.. может кто поможет?

kuklp,

у меня 2010....

я понял в чем проблема! тот код, который я писал запускался не при открытии книги - он лежал в модуле - я его забыл удалить. а тот который запускался при открытии - он был без фильтра.
Спасибо ответившим.
Djon Player, ваш код более изящный чем все мои строки и я его использую))