Excel VBA Макросы. Диалоговое окно для выбора нужного файла.

[Посетитель]

Как отобразить диалоговое окно для выбора нужного файла?

[Администратор]

Макрос

Sub Макрос()
   
    Dim FN As String
   
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .ButtonName = "OK"
        .Filters.Clear
        .Filters.Add "Файлы Excel", "*.xls*"
        .Title = "Заголовок окна"
        ' Если пользователь отказался выбирать файл.
        If .Show = False Then
            Exit Sub
        End If
        ' Если пользователь выбрал файл.
        ' Запись полного имени выбранного файла в переменную "FN".
        FN = .SelectedItems(1)
    End With
   
End Sub

[свернуть]

[Посетитель]

Спасибо большое!