Вывести стандартное диалоговое окно MS Excel — Visual Basic(Бейсик)

Application.Dialogs(xlDialogPrint).Show
Application.Dialogs(xlDialogDefineStyle).Show
Application.Dialogs(xlDialogWorkbookName).Show
С помощью необязательных аргументов метода .Show можно управлять стандартным диалоговым окном:

Application.Dialogs(xlDialogPrint).Show Arg1:=2, Arg2:=5, Arg3:=10, Arg4:=3
Также возможно "отловить" нажатие кнопок Отмена или Закрыть [X]

iOpenFile = Application.Dialogs(xlDialogOpen).Show _
            (Arg1:="C:\Sample\", Arg2:=False)
 
If iOpenFile = True Then
   MsgBox "Вы открыли " & ActiveWorkbook.Name
Else
   MsgBox "Вы не открыли нужную рабочую книгу"
End If