Form - chiudere tutti i Form aperti

Public Sub UnloadAllForms(sFormName As String)

Dim Form As Form

For Each Form In Forms
If Form.Name sFormName Then
Unload Form
Set Form = Nothing
End If
Next Form

End Sub