Luk alle forms på nær formA og formB

Denne burde kunne gøre det:

Public Function CloseAllForms()
    Dim n As Integer
    For n = 0 To CurrentProject.AllForms.Count - 1
        If CurrentProject.AllForms(n).Name <> "FormA" And CurrentProject.AllForms(n).Name <> "FormB" Then DoCmd.Close acForm, CurrentProject.AllForms(n).Name
    Next n
End Function

Tak for hjælpen. Rigtig god jul

Selv tak og i lige måde :o)