Thanks a lot Michel!

Your code does the job I wanted,

Jos


"Michel Pierron" schreef in bericht
...
Hi Jos,

Private Function FormIsLoaded(UFName As String) As Boolean
Dim UF As Integer
For UF = 0 To VBA.UserForms.Count - 1
FormIsLoaded = UserForms(UF).Name = UFName
If FormIsLoaded Then Exit Function
Next UF
End Function

Sub Test()
'Load UserForm1
MsgBox FormIsLoaded("UserForm1"), 64
'If FormIsLoaded("UserForm1") Then Unload UserForm1
End Sub

Regards,
MP

"Jos Vens" a écrit dans le message de
...
Hi,

is it possible to check if a specific form is loaded into memory?

Thanks,
Jos Vens