Microsoft Office Forums - View Single Post

gmaxey · 01-31-2018, 05:43 AM

This seems to show all in the array:

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey, http://gregmaxey.com/word_tips.html, 1/31/2018
Dim Dialogs(2) As Object
Dim lngIndex As Long
  Set Dialogs(0) = New UserForm1
  Set Dialogs(1) = New UserForm2
  Set Dialogs(2) = New UserForm3
  For lngIndex = 0 To UBound(Dialogs)
    Dialogs(lngIndex).Show
  Next
lbl_Exit:
  Exit Sub
End Sub