Application VisualBasic Script

Sub showDialog()
  Application.Dialogs(xlDialogOpen).show
End Sub