Close the active workbook and in case it is the only workbook quit Excel. But code does not work properly.

[BVOPP]

This is the code i used:

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

 

[Anthony47]

Probably you have some hidden open workbook...
Try modifying this portion:

    number_of_openbooks = 0
    For Each book In Workbooks
        Debug.Print book.Name, Windows(book.Name).Visible
        If Windows(book.Name).Visible Then number_of_openbooks = number_of_openbooks + 1
    Next book
'your next code

 

[BVOPP]

Thanks tried that one but same result:

 

[Anthony47]

Probably when you close the activeworkbook the macro get badly truncated.
Try a different approach, IE saving the file (rather then Closing it) then quitting excel

'previous code
    Next book
    
    If number_of_openbooks = 1 Then
        If Save_Changes Then
            ActiveWorkbook.Save
        End If
        Application.DisplayAlerts = False
        'close excel as well
        Application.Quit
    Else
        ActiveWorkbook.Close SaveChanges:=Save_Changes
    End If

Bye

 

[BVOPP]

If number_of_openbooks = 1 Then
If Save_Changes Then
ActiveWorkbook.Save
End If
Application.DisplayAlerts = False
'close excel as well
Application.Quit
Else
ActiveWorkbook.Close SaveChanges:=Save_Changes
End If

GREAT This is it ! Thanks a lot!

 

[Anthony47]

Thank you for the feedback