' Create an array using the needed forms in order:
    Dim dialogs(4) As UserForm
 
    ' NOTE: Using 'NEW' doesn't make any difference to functionality
    Set dialogs(0) = frmDataInput
    Set dialogs(1) = frmSummaryInput
    Set dialogs(2) = New frmCondition
    Set dialogs(3) = New frmSummaryInput
 
    ' The following code would be in a separate function, common to all documents
    Dim i As Integer
    Dim ct As Integer
 
    ct = UBound(dialogs)
    For i = 0 To ct
        Set dialog = dialogs(i)
 
        ' NOTE: This doesn't work:
        ' dialog.show
 
        ' Need to use 'Select Case' to activate forms
        Dim name As String
        name = TypeName(dialog)
        Select Case name
        Case "frmSummaryInput"
            frmSummaryInput.show
        Case "frmDataInput"
            frmDataInput.show
        Case "frmCondition"
            frmCondition.show
        End Select
 
    Next I