You close it explicitly. I found this: Public Sub SaveFig() On Error GoTo Checkerror
objXLApp.Quit
Set newChart = Nothing
Set objResultsSheet =
Nothing
Set objChartSheet = Nothing
Set
objXLBook = Nothing
Set objXLApp = Nothing
Exit Sub
[Non-text portions of this message have been removed]
