Excel automatically closing userforms when application is minimized???

[RawlinsCross]

I have an interesting problem where I have a userform (DataEntry) from which I can launch multiple instances of another userform (DataEntryDetails). Both are launched vbModeless. Say I have 1 instance of userform DataEntry open and 3 instances of userform DataEntryDetails. Now if I minimize Excel, Excel will close down all 3 instances of userform DataEntryDetails while keeping open DataEntry. The net effect is that when I maximize the screen, all I see now is the DataEntry userform.

I've tested this situation with the code below which returns 1. Any thoughts of what is going on here?

Private Sub Workbook_WindowResize(ByVal Wn As Window)

Dim frm As Object

If Wn.WindowState = xlMaximized Then
    For Each frm In VBA.UserForms
        If frm.Name = "DataEntryDetails" Then
            MsgBox "The DataEntryDetails userform still exists!" 'This does not run at all
        End If
    Next frm
    MsgBox VBA.UserForms.Count 'Returns 1 even though I had 4 userforms open
End If

End Sub

 

[RawlinsCross]

So just an update here. I ended up putting the collection as a global variable as I want the references to be still active if Userform1 is closed. Do you see any issue with what I have?

In Module1 (global)

Public MyRefs As New Collection

Public Sub RemoveReference(ref As Userform2)
MyRefs.Remove ref.Key
End Sub

In Userform1

Dim frm as Userform2
Set frm = New Userform2
MyRefs.Add frm, frm.Key

In Userform2

Private pKey As String

Public Property Get Key() As String
Key = pKey
End Property

Private Sub Userform_Initialize()
pKey = CStr(Timer)
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Call RemoveReference(Me)
End Sub

 

[Legacy 456155]

It looks OK.