This is the code i used:
VBA Code:
Sub Close_Active_Workbook(Save_Changes As Boolean)
Dim book As Workbook
Dim number_of_openbooks As Integer
number_of_openbooks = 0
For Each book In Workbooks
number_of_openbooks = number_of_openbooks + 1
Next book
If number_of_openbooks = 1 Then
ActiveWorkbook.Close SaveChanges:=Save_Changes
'close excel as well
Application.Quit
Else
ActiveWorkbook.Close SaveChanges:=Save_Changes
End If
End Sub