Article ID: 111867
Article Last Modified on 10/11/2006
-or-
-or-
ActiveDialog.Hide
-or-125805 XL: Displaying Several Dialog Boxes Without Looping
Dialog Sheet
Buttons Dialog1 Dialog2 Dialog3
----------------------------------------
OK yes yes yes
Cancel yes yes yes
Go_To_Dialog1 no yes yes
Go_To_Dialog2 yes no yes
Go_To_Dialog3 yes yes no
' Define the variable as Integer type
Dim dialog_number As Integer
Sub Main()
dialog_number = 1 'initialize the variable
DialogSheets("Dialog1").Show 'display the first dialog sheet
While dialog_number > 0 'while variable is greater than 0
Select Case dialog_number 'display a dialog based on the
'value of dialog_number
Case 1
'dialog_number is 1
DialogSheets("Dialog1").Show 'display dialog1
Case 2
'dialog_number is 2
DialogSheets("Dialog2").Show 'display dialog2
Case 3
'dialog_number is 3
DialogSheets("Dialog3").Show 'display dialog3
End Select
Wend
End Sub
'The following code sets the value of the dialog_number variable
Sub Go_To_Dialog1()
dialog_number = 1
End Sub
Sub Go_To_Dialog2()
dialog_number = 2
End Sub
Sub Go_To_Dialog3()
dialog_number = 3
End Sub
Sub OK_Or_Cancel()
dialog_number = 0
End Sub
Additional query words: 5.0 overflow XL Err Msg
Keywords: kbcode kbprb kbprogramming KB111867