unload userforms

[daren white]

is there an easy way to close all userforms ?

 

[Ram6]

Hi Daren,

I think this code can be de answer to your question. Loop the UserForms
collection and close each userform one by one (but quick of course

Sub UnloadForms()
Dim i As Integer
Dim strClose As String

'Loop the userforms collection to close each active user form

For i = VBA.UserForms.Count - 1 To 0 Step -1

strClose = strClose & VBA.UserForms(i).Name & vbCr

Unload VBA.UserForms(i)
Next

MsgBox strClose & "Closed"

End Sub

Hope it will help you.

Kind Regards,
Ramses

 

[daren white]

Thank you - it works a treat

Hi Daren,

I think this code can be de answer to your question. Loop the UserForms
collection and close each userform one by one (but quick of course

Sub UnloadForms()
Dim i As Integer
Dim strClose As String

'Loop the userforms collection to close each active user form

For i = VBA.UserForms.Count - 1 To 0 Step -1

strClose = strClose & VBA.UserForms(i).Name & vbCr

Unload VBA.UserForms(i)
Next

MsgBox strClose & "Closed"

End Sub

Hope it will help you.

Kind Regards,
Ramses