• Home
 · 
• VB function enhancement
 · 
• Close all forms within a project.

Close all forms within a project.

Add this code to a module and simply use CloseAll to unload all forms in your project.

Side Effects
None that I know off, I haven't had any problems yet... a decrease in use of Unload and End?

Rate Close all forms within a project.

• 1
• 2
• 3
• 4
• 5

(4(4 Vote))

Sub CloseAll()
On Error Resume Next
Dim intFrmNum As Integer
 intFrmNum = Forms.Count
Do Until intFrmNum = 0
 Unload Forms(intFrmNum - 1)
 intFrmNum = intFrmNum - 1
Loop
End Sub