Built in dialog boxes
1. xlBuiltInDialogs
Make code writing easier by using existing Excel dialog boxes. Excel 2013 has 258 dialog boxes built in, and you can use any of them in your code development, depending on the context of use.
Most of the BuiltIn dialogs are based on Excel 2003 menu items, such as File > Print, or File > Save As. A complete list is provided in the figure 4 Excel Web App #1 Dialogs worksheet below.
1.1 The xlDialogPrint dialog box
To call the BuiltIn Print dialog box, the code statement is (line 3):
Code 1:
Dim Tmp As Boolean Application.Dialogs(xlDialogPrint).Show Tmp = Application.Dialogs(xlDialogPrint).Show
This will show the Print dialog box - figure 1.

1.2 The xlDialogSaveAs dialog box
To call the BuiltIn Save As dialog box, the code statement in code 2 line 1 is:
Code 2:
Application.Dialogs(xlDialogSaveAs).Show Application.Dialogs(XlBuiltInDialog.xlDialogSaveAs).Show Application.Dialogs(5).Show
Code 2, lines 1, 3, and 5 all show the Save As dialog box - figure 2. The Dialogs collection is returned by the Application object Dialogs property. Collection members are indexed by the XlBuiltInDialog constant and are identified by prefix xlDialog & dialog box name (caption) - lines 3 or index Value - line 5.

You can use all the functions in the box. When the user presses OK or cancel, they are returned to the program. Using BuiltIn dialog boxes can save a significant amount of programming effort.
2. Finding a list of xlBuiltInDialogs
2.1 The VBA Object Browser
- Use the VBA object browser
- From the VBE menu, select View > Object Browser
- Then Set Libraries to Excel
- Search for
XlBuiltInDialog
to display the Members of "XlBuiltInDialog" as shown in the right panel of figure 3

- Use the list in the figure 4 Web App
- Column B lists the index Value
- Column C lists the XlBuiltInDialog member's name
The list in the Dialogs worksheet was returned by the procedure in code 3, where the Value and Name are stored in a 258 rows x 2 column array. A For...Next statement in lines 530 to 534 writes the list with the ActiveCell.Offset
statement
Code 3: Sub procedure
xlDialogList
. Scroll down to view the 538 lines of code.
Sub xlDialogList() Dim i As Integer Dim xlDialog(1 To 258, 1 To 2) As String '' Excel 2013 xlBuiltInDialog list xlDialog(1, 1) = 103 xlDialog(2, 1) = 476 xlDialog(3, 1) = 390 xlDialog(4, 1) = 321 xlDialog(5, 1) = 43 xlDialog(6, 1) = 133 xlDialog(7, 1) = 212 xlDialog(8, 1) = 170 xlDialog(9, 1) = 171 xlDialog(10, 1) = 12 xlDialog(11, 1) = 213 xlDialog(12, 1) = 293 xlDialog(13, 1) = 80 xlDialog(14, 1) = 323 xlDialog(15, 1) = 485 xlDialog(16, 1) = 78 xlDialog(17, 1) = 45 xlDialog(18, 1) = 32 xlDialog(19, 1) = 46 xlDialog(20, 1) = 166 xlDialog(21, 1) = 392 xlDialog(22, 1) = 527 xlDialog(23, 1) = 724 xlDialog(24, 1) = 505 xlDialog(25, 1) = 506 xlDialog(26, 1) = 540 xlDialog(27, 1) = 350 xlDialog(28, 1) = 526 xlDialog(29, 1) = 288 xlDialog(30, 1) = 435 xlDialog(31, 1) = 52 xlDialog(32, 1) = 161 xlDialog(33, 1) = 47 xlDialog(34, 1) = 73 xlDialog(35, 1) = 583 xlDialog(36, 1) = 191 xlDialog(37, 1) = 147 xlDialog(38, 1) = 108 xlDialog(39, 1) = 796 xlDialog(40, 1) = 62 xlDialog(41, 1) = 217 xlDialog(42, 1) = 1272 xlDialog(43, 1) = 276 xlDialog(44, 1) = 493 xlDialog(45, 1) = 36 xlDialog(46, 1) = 379 xlDialog(47, 1) = 723 xlDialog(48, 1) = 40 xlDialog(49, 1) = 525 xlDialog(50, 1) = 61 xlDialog(51, 1) = 229 xlDialog(52, 1) = 111 xlDialog(53, 1) = 110 xlDialog(54, 1) = 203 xlDialog(55, 1) = 27 xlDialog(56, 1) = 862 xlDialog(57, 1) = 438 xlDialog(58, 1) = 223 xlDialog(59, 1) = 54 xlDialog(60, 1) = 251 xlDialog(61, 1) = 228 xlDialog(62, 1) = 463 xlDialog(63, 1) = 464 xlDialog(64, 1) = 732 xlDialog(65, 1) = 709 xlDialog(66, 1) = 530 xlDialog(67, 1) = 35 xlDialog(68, 1) = 6 xlDialog(69, 1) = 481 xlDialog(70, 1) = 200 xlDialog(71, 1) = 301 xlDialog(72, 1) = 447 xlDialog(73, 1) = 370 xlDialog(74, 1) = 475 xlDialog(75, 1) = 26 xlDialog(76, 1) = 381 xlDialog(77, 1) = 269 xlDialog(78, 1) = 465 xlDialog(79, 1) = 423 xlDialog(80, 1) = 150 xlDialog(81, 1) = 88 xlDialog(82, 1) = 225 xlDialog(83, 1) = 128 xlDialog(84, 1) = 42 xlDialog(85, 1) = 226 xlDialog(86, 1) = 129 xlDialog(87, 1) = 89 xlDialog(88, 1) = 64 xlDialog(89, 1) = 63 xlDialog(90, 1) = 130 xlDialog(91, 1) = 450 xlDialog(92, 1) = 193 xlDialog(93, 1) = 272 xlDialog(94, 1) = 194 xlDialog(95, 1) = 195 xlDialog(96, 1) = 196 xlDialog(97, 1) = 273 xlDialog(98, 1) = 67 xlDialog(99, 1) = 68 xlDialog(100, 1) = 69 xlDialog(101, 1) = 388 xlDialog(102, 1) = 344 xlDialog(103, 1) = 70 xlDialog(104, 1) = 71 xlDialog(105, 1) = 249 xlDialog(106, 1) = 72 xlDialog(107, 1) = 198 xlDialog(108, 1) = 76 xlDialog(109, 1) = 666 xlDialog(110, 1) = 55 xlDialog(111, 1) = 596 xlDialog(112, 1) = 259 xlDialog(113, 1) = 342 xlDialog(114, 1) = 380 xlDialog(115, 1) = 436 xlDialog(116, 1) = 437 xlDialog(117, 1) = 382 xlDialog(118, 1) = 470 xlDialog(119, 1) = 339 xlDialog(120, 1) = 378 xlDialog(121, 1) = 85 xlDialog(122, 1) = 185 xlDialog(123, 1) = 1271 xlDialog(124, 1) = 322 xlDialog(125, 1) = 262 xlDialog(126, 1) = 834 xlDialog(127, 1) = 977 xlDialog(128, 1) = 119 xlDialog(129, 1) = 978 xlDialog(130, 1) = 667 xlDialog(131, 1) = 154 xlDialog(132, 1) = 207 xlDialog(133, 1) = 214 xlDialog(134, 1) = 1 xlDialog(135, 1) = 2 xlDialog(136, 1) = 188 xlDialog(137, 1) = 441 xlDialog(138, 1) = 318 xlDialog(139, 1) = 325 xlDialog(140, 1) = 319 xlDialog(141, 1) = 356 xlDialog(142, 1) = 458 xlDialog(143, 1) = 647 xlDialog(144, 1) = 355 xlDialog(145, 1) = 320 xlDialog(146, 1) = 142 xlDialog(147, 1) = 86 xlDialog(148, 1) = 186 xlDialog(149, 1) = 7 xlDialog(150, 1) = 91 xlDialog(151, 1) = 58 xlDialog(152, 1) = 53 xlDialog(153, 1) = 84 xlDialog(154, 1) = 832 xlDialog(155, 1) = 656 xlDialog(156, 1) = 570 xlDialog(157, 1) = 572 xlDialog(158, 1) = 689 xlDialog(159, 1) = 433 xlDialog(160, 1) = 313 xlDialog(161, 1) = 434 xlDialog(162, 1) = 421 xlDialog(163, 1) = 568 xlDialog(164, 1) = 567 xlDialog(165, 1) = 1183 xlDialog(166, 1) = 1153 xlDialog(167, 1) = 312 xlDialog(168, 1) = 300 xlDialog(169, 1) = 8 xlDialog(170, 1) = 9 xlDialog(171, 1) = 222 xlDialog(172, 1) = 202 xlDialog(173, 1) = 474 xlDialog(174, 1) = 754 xlDialog(175, 1) = 28 xlDialog(176, 1) = 620 xlDialog(177, 1) = 653 xlDialog(178, 1) = 445 xlDialog(179, 1) = 1258 xlDialog(180, 1) = 134 xlDialog(181, 1) = 127 xlDialog(182, 1) = 17 xlDialog(183, 1) = 5 xlDialog(184, 1) = 456 xlDialog(185, 1) = 208 xlDialog(186, 1) = 145 xlDialog(187, 1) = 285 xlDialog(188, 1) = 87 xlDialog(189, 1) = 307 xlDialog(190, 1) = 305 xlDialog(191, 1) = 308 xlDialog(192, 1) = 473 xlDialog(193, 1) = 311 xlDialog(194, 1) = 420 xlDialog(195, 1) = 731 xlDialog(196, 1) = 132 xlDialog(197, 1) = 189 xlDialog(198, 1) = 460 xlDialog(199, 1) = 557 xlDialog(200, 1) = 466 xlDialog(201, 1) = 504 xlDialog(202, 1) = 461 xlDialog(203, 1) = 462 xlDialog(204, 1) = 509 xlDialog(205, 1) = 1109 xlDialog(206, 1) = 1208 xlDialog(207, 1) = 23 xlDialog(208, 1) = 1108 xlDialog(209, 1) = 1107 xlDialog(210, 1) = 159 xlDialog(211, 1) = 204 xlDialog(212, 1) = 220 xlDialog(213, 1) = 261 xlDialog(214, 1) = 1182 xlDialog(215, 1) = 1184 xlDialog(216, 1) = 1179 xlDialog(217, 1) = 39 xlDialog(218, 1) = 192 xlDialog(219, 1) = 1134 xlDialog(220, 1) = 1133 xlDialog(221, 1) = 1135 xlDialog(222, 1) = 137 xlDialog(223, 1) = 190 xlDialog(224, 1) = 472 xlDialog(225, 1) = 44 xlDialog(226, 1) = 218 xlDialog(227, 1) = 398 xlDialog(228, 1) = 474 xlDialog(229, 1) = 41 xlDialog(230, 1) = 394 xlDialog(231, 1) = 422 xlDialog(232, 1) = 94 xlDialog(233, 1) = 201 xlDialog(234, 1) = 328 xlDialog(235, 1) = 478 xlDialog(236, 1) = 330 xlDialog(237, 1) = 197 xlDialog(238, 1) = 773 xlDialog(239, 1) = 686 xlDialog(240, 1) = 684 xlDialog(241, 1) = 687 xlDialog(242, 1) = 683 xlDialog(243, 1) = 685 xlDialog(244, 1) = 14 xlDialog(245, 1) = 13 xlDialog(246, 1) = 281 xlDialog(247, 1) = 283 xlDialog(248, 1) = 354 xlDialog(249, 1) = 282 xlDialog(250, 1) = 386 xlDialog(251, 1) = 302 xlDialog(252, 1) = 284 xlDialog(253, 1) = 417 xlDialog(254, 1) = 415 xlDialog(255, 1) = 384 xlDialog(256, 1) = 199 xlDialog(257, 1) = 95 xlDialog(258, 1) = 256 xlDialog(1, 2) = "xlDialogActivate" xlDialog(2, 2) = "xlDialogActiveCellFont" xlDialog(3, 2) = "xlDialogAddChartAutoformat" xlDialog(4, 2) = "xlDialogAddinManager" xlDialog(5, 2) = "xlDialogAlignment" xlDialog(6, 2) = "xlDialogApplyNames" xlDialog(7, 2) = "xlDialogApplyStyle" xlDialog(8, 2) = "xlDialogAppMove" xlDialog(9, 2) = "xlDialogAppSize" xlDialog(10, 2) = "xlDialogArrangeAll" xlDialog(11, 2) = "xlDialogAssignToObject" xlDialog(12, 2) = "xlDialogAssignToTool" xlDialog(13, 2) = "xlDialogAttachText" xlDialog(14, 2) = "xlDialogAttachToolbars" xlDialog(15, 2) = "xlDialogAutoCorrect" xlDialog(16, 2) = "xlDialogAxes" xlDialog(17, 2) = "xlDialogBorder" xlDialog(18, 2) = "xlDialogCalculation" xlDialog(19, 2) = "xlDialogCellProtection" xlDialog(20, 2) = "xlDialogChangeLink" xlDialog(21, 2) = "xlDialogChartAddData" xlDialog(22, 2) = "xlDialogChartLocation" xlDialog(23, 2) = "xlDialogChartOptionsDataLabelMultiple" xlDialog(24, 2) = "xlDialogChartOptionsDataLabels" xlDialog(25, 2) = "xlDialogChartOptionsDataTable" xlDialog(26, 2) = "xlDialogChartSourceData" xlDialog(27, 2) = "xlDialogChartTrend" xlDialog(28, 2) = "xlDialogChartType" xlDialog(29, 2) = "xlDialogChartWizard" xlDialog(30, 2) = "xlDialogCheckboxProperties" xlDialog(31, 2) = "xlDialogClear" xlDialog(32, 2) = "xlDialogColorPalette" xlDialog(33, 2) = "xlDialogColumnWidth" xlDialog(34, 2) = "xlDialogCombination" xlDialog(35, 2) = "xlDialogConditionalFormatting" xlDialog(36, 2) = "xlDialogConsolidate" xlDialog(37, 2) = "xlDialogCopyChart" xlDialog(38, 2) = "xlDialogCopyPicture" xlDialog(39, 2) = "xlDialogCreateList" xlDialog(40, 2) = "xlDialogCreateNames" xlDialog(41, 2) = "xlDialogCreatePublisher" xlDialog(42, 2) = "xlDialogCreateRelationship" xlDialog(43, 2) = "xlDialogCustomizeToolbar" xlDialog(44, 2) = "xlDialogCustomViews" xlDialog(45, 2) = "xlDialogDataDelete" xlDialog(46, 2) = "xlDialogDataLabel" xlDialog(47, 2) = "xlDialogDataLabelMultiple" xlDialog(48, 2) = "xlDialogDataSeries" xlDialog(49, 2) = "xlDialogDataValidation" xlDialog(50, 2) = "xlDialogDefineName" xlDialog(51, 2) = "xlDialogDefineStyle" xlDialog(52, 2) = "xlDialogDeleteFormat" xlDialog(53, 2) = "xlDialogDeleteName" xlDialog(54, 2) = "xlDialogDemote" xlDialog(55, 2) = "xlDialogDisplay" xlDialog(56, 2) = "xlDialogDocumentInspector" xlDialog(57, 2) = "xlDialogEditboxProperties" xlDialog(58, 2) = "xlDialogEditColor" xlDialog(59, 2) = "xlDialogEditDelete" xlDialog(60, 2) = "xlDialogEditionOptions" xlDialog(61, 2) = "xlDialogEditSeries" xlDialog(62, 2) = "xlDialogErrorbarX" xlDialog(63, 2) = "xlDialogErrorbarY" xlDialog(64, 2) = "xlDialogErrorChecking" xlDialog(65, 2) = "xlDialogEvaluateFormula" xlDialog(66, 2) = "xlDialogExternalDataProperties" xlDialog(67, 2) = "xlDialogExtract" xlDialog(68, 2) = "xlDialogFileDelete" xlDialog(69, 2) = "xlDialogFileSharing" xlDialog(70, 2) = "xlDialogFillGroup" xlDialog(71, 2) = "xlDialogFillWorkgroup" xlDialog(72, 2) = "xlDialogFilter" xlDialog(73, 2) = "xlDialogFilterAdvanced" xlDialog(74, 2) = "xlDialogFindFile" xlDialog(75, 2) = "xlDialogFont" xlDialog(76, 2) = "xlDialogFontProperties" xlDialog(77, 2) = "xlDialogFormatAuto" xlDialog(78, 2) = "xlDialogFormatChart" xlDialog(79, 2) = "xlDialogFormatCharttype" xlDialog(80, 2) = "xlDialogFormatFont" xlDialog(81, 2) = "xlDialogFormatLegend" xlDialog(82, 2) = "xlDialogFormatMain" xlDialog(83, 2) = "xlDialogFormatMove" xlDialog(84, 2) = "xlDialogFormatNumber" xlDialog(85, 2) = "xlDialogFormatOverlay" xlDialog(86, 2) = "xlDialogFormatSize" xlDialog(87, 2) = "xlDialogFormatText" xlDialog(88, 2) = "xlDialogFormulaFind" xlDialog(89, 2) = "xlDialogFormulaGoto" xlDialog(90, 2) = "xlDialogFormulaReplace" xlDialog(91, 2) = "xlDialogFunctionWizard" xlDialog(92, 2) = "xlDialogGallery3dArea" xlDialog(93, 2) = "xlDialogGallery3dBar" xlDialog(94, 2) = "xlDialogGallery3dColumn" xlDialog(95, 2) = "xlDialogGallery3dLine" xlDialog(96, 2) = "xlDialogGallery3dPie" xlDialog(97, 2) = "xlDialogGallery3dSurface" xlDialog(98, 2) = "xlDialogGalleryArea" xlDialog(99, 2) = "xlDialogGalleryBar" xlDialog(100, 2) = "xlDialogGalleryColumn" xlDialog(101, 2) = "xlDialogGalleryCustom" xlDialog(102, 2) = "xlDialogGalleryDoughnut" xlDialog(103, 2) = "xlDialogGalleryLine" xlDialog(104, 2) = "xlDialogGalleryPie" xlDialog(105, 2) = "xlDialogGalleryRadar" xlDialog(106, 2) = "xlDialogGalleryScatter" xlDialog(107, 2) = "xlDialogGoalSeek" xlDialog(108, 2) = "xlDialogGridlines" xlDialog(109, 2) = "xlDialogImportTextFile" xlDialog(110, 2) = "xlDialogInsert" xlDialog(111, 2) = "xlDialogInsertHyperlink" xlDialog(112, 2) = "xlDialogInsertObject" xlDialog(113, 2) = "xlDialogInsertPicture" xlDialog(114, 2) = "xlDialogInsertTitle" xlDialog(115, 2) = "xlDialogLabelProperties" xlDialog(116, 2) = "xlDialogListboxProperties" xlDialog(117, 2) = "xlDialogMacroOptions" xlDialog(118, 2) = "xlDialogMailEditMailer" xlDialog(119, 2) = "xlDialogMailLogon" xlDialog(120, 2) = "xlDialogMailNextLetter" xlDialog(121, 2) = "xlDialogMainChart" xlDialog(122, 2) = "xlDialogMainChartType" xlDialog(123, 2) = "xlDialogManageRelationships" xlDialog(124, 2) = "xlDialogMenuEditor" xlDialog(125, 2) = "xlDialogMove" xlDialog(126, 2) = "xlDialogMyPermission" xlDialog(127, 2) = "xlDialogNameManager" xlDialog(128, 2) = "xlDialogNew" xlDialog(129, 2) = "xlDialogNewName" xlDialog(130, 2) = "xlDialogNewWebQuery" xlDialog(131, 2) = "xlDialogNote" xlDialog(132, 2) = "xlDialogObjectProperties" xlDialog(133, 2) = "xlDialogObjectProtection" xlDialog(134, 2) = "xlDialogOpen" xlDialog(135, 2) = "xlDialogOpenLinks" xlDialog(136, 2) = "xlDialogOpenMail" xlDialog(137, 2) = "xlDialogOpenText" xlDialog(138, 2) = "xlDialogOptionsCalculation" xlDialog(139, 2) = "xlDialogOptionsChart" xlDialog(140, 2) = "xlDialogOptionsEdit" xlDialog(141, 2) = "xlDialogOptionsGeneral" xlDialog(142, 2) = "xlDialogOptionsListsAdd" xlDialog(143, 2) = "xlDialogOptionsME" xlDialog(144, 2) = "xlDialogOptionsTransition" xlDialog(145, 2) = "xlDialogOptionsView" xlDialog(146, 2) = "xlDialogOutline" xlDialog(147, 2) = "xlDialogOverlay" xlDialog(148, 2) = "xlDialogOverlayChartType" xlDialog(149, 2) = "xlDialogPageSetup" xlDialog(150, 2) = "xlDialogParse" xlDialog(151, 2) = "xlDialogPasteNames" xlDialog(152, 2) = "xlDialogPasteSpecial" xlDialog(153, 2) = "xlDialogPatterns" xlDialog(154, 2) = "xlDialogPermission" xlDialog(155, 2) = "xlDialogPhonetic" xlDialog(156, 2) = "xlDialogPivotCalculatedField" xlDialog(157, 2) = "xlDialogPivotCalculatedItem" xlDialog(158, 2) = "xlDialogPivotClientServerSet" xlDialog(159, 2) = "xlDialogPivotFieldGroup" xlDialog(160, 2) = "xlDialogPivotFieldProperties" xlDialog(161, 2) = "xlDialogPivotFieldUngroup" xlDialog(162, 2) = "xlDialogPivotShowPages" xlDialog(163, 2) = "xlDialogPivotSolveOrder" xlDialog(164, 2) = "xlDialogPivotTableOptions" xlDialog(165, 2) = "xlDialogPivotTableSlicerConnections" xlDialog(166, 2) = "xlDialogPivotTableWhatIfAnalysisSettings" xlDialog(167, 2) = "xlDialogPivotTableWizard" xlDialog(168, 2) = "xlDialogPlacement" xlDialog(169, 2) = "xlDialogPrint" xlDialog(170, 2) = "xlDialogPrinterSetup" xlDialog(171, 2) = "xlDialogPrintPreview" xlDialog(172, 2) = "xlDialogPromote" xlDialog(173, 2) = "xlDialogProperties" xlDialog(174, 2) = "xlDialogPropertyFields" xlDialog(175, 2) = "xlDialogProtectDocument" xlDialog(176, 2) = "xlDialogProtectSharing" xlDialog(177, 2) = "xlDialogPublishAsWebPage" xlDialog(178, 2) = "xlDialogPushbuttonProperties" xlDialog(179, 2) = "xlDialogRecommendedPivotTables" xlDialog(180, 2) = "xlDialogReplaceFont" xlDialog(181, 2) = "xlDialogRowHeight" xlDialog(182, 2) = "xlDialogRun" xlDialog(183, 2) = "xlDialogSaveAs" xlDialog(184, 2) = "xlDialogSaveCopyAs" xlDialog(185, 2) = "xlDialogSaveNewObject" xlDialog(186, 2) = "xlDialogSaveWorkbook" xlDialog(187, 2) = "xlDialogSaveWorkspace" xlDialog(188, 2) = "xlDialogScale" xlDialog(189, 2) = "xlDialogScenarioAdd" xlDialog(190, 2) = "xlDialogScenarioCells" xlDialog(191, 2) = "xlDialogScenarioEdit" xlDialog(192, 2) = "xlDialogScenarioMerge" xlDialog(193, 2) = "xlDialogScenarioSummary" xlDialog(194, 2) = "xlDialogScrollbarProperties" xlDialog(195, 2) = "xlDialogSearch" xlDialog(196, 2) = "xlDialogSelectSpecial" xlDialog(197, 2) = "xlDialogSendMail" xlDialog(198, 2) = "xlDialogSeriesAxes" xlDialog(199, 2) = "xlDialogSeriesOptions" xlDialog(200, 2) = "xlDialogSeriesOrder" xlDialog(201, 2) = "xlDialogSeriesShape" xlDialog(202, 2) = "xlDialogSeriesX" xlDialog(203, 2) = "xlDialogSeriesY" xlDialog(204, 2) = "xlDialogSetBackgroundPicture" xlDialog(205, 2) = "xlDialogSetManager" xlDialog(206, 2) = "xlDialogSetMDXEditor" xlDialog(207, 2) = "xlDialogSetPrintTitles" xlDialog(208, 2) = "xlDialogSetTupleEditorOnColumns" xlDialog(209, 2) = "xlDialogSetTupleEditorOnRows" xlDialog(210, 2) = "xlDialogSetUpdateStatus" xlDialog(211, 2) = "xlDialogShowDetail" xlDialog(212, 2) = "xlDialogShowToolbar" xlDialog(213, 2) = "xlDialogSize" xlDialog(214, 2) = "xlDialogSlicerCreation" xlDialog(215, 2) = "xlDialogSlicerPivotTableConnections" xlDialog(216, 2) = "xlDialogSlicerSettings" xlDialog(217, 2) = "xlDialogSort" xlDialog(218, 2) = "xlDialogSortSpecial" xlDialog(219, 2) = "xlDialogSparklineInsertColumn" xlDialog(220, 2) = "xlDialogSparklineInsertLine" xlDialog(221, 2) = "xlDialogSparklineInsertWinLoss" xlDialog(222, 2) = "xlDialogSplit" xlDialog(223, 2) = "xlDialogStandardFont" xlDialog(224, 2) = "xlDialogStandardWidth" xlDialog(225, 2) = "xlDialogStyle" xlDialog(226, 2) = "xlDialogSubscribeTo" xlDialog(227, 2) = "xlDialogSubtotalCreate" xlDialog(228, 2) = "xlDialogSummaryInfo" xlDialog(229, 2) = "xlDialogTable" xlDialog(230, 2) = "xlDialogTabOrder" xlDialog(231, 2) = "xlDialogTextToColumns" xlDialog(232, 2) = "xlDialogUnhide" xlDialog(233, 2) = "xlDialogUpdateLink" xlDialog(234, 2) = "xlDialogVbaInsertFile" xlDialog(235, 2) = "xlDialogVbaMakeAddin" xlDialog(236, 2) = "xlDialogVbaProcedureDefinition" xlDialog(237, 2) = "xlDialogView3d" xlDialog(238, 2) = "xlDialogWebOptionsBrowsers" xlDialog(239, 2) = "xlDialogWebOptionsEncoding" xlDialog(240, 2) = "xlDialogWebOptionsFiles" xlDialog(241, 2) = "xlDialogWebOptionsFonts" xlDialog(242, 2) = "xlDialogWebOptionsGeneral" xlDialog(243, 2) = "xlDialogWebOptionsPictures" xlDialog(244, 2) = "xlDialogWindowMove" xlDialog(245, 2) = "xlDialogWindowSize" xlDialog(246, 2) = "xlDialogWorkbookAdd" xlDialog(247, 2) = "xlDialogWorkbookCopy" xlDialog(248, 2) = "xlDialogWorkbookInsert" xlDialog(249, 2) = "xlDialogWorkbookMove" xlDialog(250, 2) = "xlDialogWorkbookName" xlDialog(251, 2) = "xlDialogWorkbookNew" xlDialog(252, 2) = "xlDialogWorkbookOptions" xlDialog(253, 2) = "xlDialogWorkbookProtect" xlDialog(254, 2) = "xlDialogWorkbookTabSplit" xlDialog(255, 2) = "xlDialogWorkbookUnhide" xlDialog(256, 2) = "xlDialogWorkgroup" xlDialog(257, 2) = "xlDialogWorkspace" xlDialog(258, 2) = "xlDialogZoom" With ActiveCell .Offset(0, 0) = "Value" .Offset(0, 0).HorizontalAlignment = xlRight .Offset(0, 1) = "Name" .Offset(i, 1).IndentLevel = 1 For i = LBound(xlDialog) To UBound(xlDialog) .Offset(i, 0).Value = xlDialog(i, 1) .Offset(i, 1).Value = xlDialog(i, 2) .Offset(i, 1).IndentLevel = 1 Next i End With End Sub
2.2 The xlDialogWorkspace dialog box
A list of Built-In Dialog Box Arguments is available at the Office Dev Center site: Built-In Dialog Box Argument Lists. The xlDialogWorkspace dialog box demonstrated here, has 16 listed arguments. Details are shown in the Code 2 window. In Line 7, arguments are passed by Name
, and in Line 10 arguments are passed by Position
. A comma marks each position.
Code 2: Sub
xlDialogWspace
shows the xlDialogWorkspace box - with arguments, by Name and Position
Sub xlDialogWspace() '' Arg1: fixed; Arg2: decimals; Arg3: r1c1; Arg4: scroll; Arg5: status; Arg6: formula; '' Arg7: menu_key; Arg8: remote; Arg9 :entermove; Arg10:underlines; Arg11: tools; '' Arg12: notes; Arg13: nav_keys; Arg14: menu_key_action; Arg15: drag_drop; Arg16: show_info '' Set Wspace - parameters by Name Application.Dialogs(xlDialogWorkspace).Show Arg3:=True, Arg4:=False, Arg5:=False, Arg6:=False '' Reset Wspace - parameters by Position Application.Dialogs(xlDialogWorkspace).Show , , False, True, True, True End Sub
The arguments are:
- Arg3: Display - R1C1
- Arg4: Display - Scroll bars
- Arg5: Display - Status bar
- Arg6: Display - Formula bar
and the line 7 code result is in figure 5 (left pane), and the line 10 code result in figure 5 (right pane).

- This example was developed in Excel 2013, and VBA 7.1
- Revised: Saturday 25th of February 2023 - 09:37 AM, [Australian Eastern Standard Time (EST)]