Как получить имя файла?

[Maxx]

Добрый день!
Снова нужна помощь:

Sub Open_File()
Dim filename As String
With Application.FileDialog(msoFileDialogFilePicker)
    .Title = "Выберите ресурсный фйал"
    .Show
    If .SelectedItems.Count = 0 Then Exit Sub
    filename = .SelectedItems(1)
End With
Workbooks.Open filename:=filename

Далее мне нужен этот файл для работы с ним, но

Windows(filename).Activate не работает, так хочет название файла, а не путь к нему.

Помогите, плз!

[SAS888]

Замените

Windows(filename).Activate

на

Workbooks(filename).Activate

[Maxx]

Ошибка "9": Script out of range

[SAS888]

Ну, тогда так:

Workbooks(Dir(filename)).Activate

[Maxx]

УРА!!!

SAS888, спасибо!