Checking for User Form loaded

Originally Posted by scottintexas

How can I test to see if a user form is loaded. If I try to access any item on the user form my code goes right into the form initialize to begin loading it. What I would like to do is test to see if the form is loaded.

Hi,

Untested but perhaps something like:

Sub IsLoaded()
    Dim stIsLoaded As String
        If UserForm1.Enabled = True Then
            stIsLoaded = "Loaded"
            Else
            stIsLoaded = "Not Loaded"
        End If
    MsgBox "Userform1 " & stIsLoaded
End Sub

Hello scottintexas,

You can check if any forms are loaded by checking the Count property of the UserForms collection. The most recently loaded form is at index zero.

  FormsLoaded = UserForms.Count

To check if a particular form has been loaded, you have to loop through the collection and check the form name. The UserForms collection object only accepts a number for the index. This code example returns the index number in the collection for the UserForm named "UserForm1"

  Dim Cnt As Integer
  Dim frm As Object
 
    For Each frm In UserForms
      If frm.Name = "UserForm1" Then
        MsgBox "UserForm1 is at index" & Str(cnt)
        Exit Sub
      End If
      Cnt = Cnt + 1
    Next frm

Sincerely,
Leith Ross