[/FONT]
[FONT=Courier New]unload me[/FONT]
[FONT=Courier New]or [/FONT]
[FONT=Courier New]unload userform1[/FONT]
[FONT=Courier New]'etc[/FONT]
[FONT=Courier New]userform2.show 'vbmodeless if you want it to be modeless etc[/FONT]
[FONT=Courier New]
Sub ShowUserFormList()
Dim I As Integer
Dim Msg As String
For I = 0 To .UserForms.Count - 1
Msg = Msg & UserForms(I).Name & vbCrLf
Next I
MsgBox "The follow UserForms are loaded or running:" & vbCrLf & Msg
End Sub