Application.AnalysisCollection

This property is read only.

SVB Example

Closing all open analyses:

Option Base 1
Option Explicit
Sub Main
    Dim i As Integer
    'close every open analysis
    For i = Application.AnalysisCollection.Count To 1 Step -1
        'note that the loop must go backwards because the
        'collection count decreases every loop
        Application.AnalysisCollection(i).Close
    Next i
End Sub