This code allows you to close all the MDI child forms in an MDI form at once. First, create a menu item in the MDI form, then paste in this code:
Private Sub mnuCloseAll_Click() Screen.MousePointer = vbHourglass Do While Not (Me.ActiveForm Is Nothing) Unload Me.ActiveForm Loop Screen.MousePointer = vbDefaultEnd Sub
Once the user clicks on that menu item, the MDI child forms will close.