Close All Open Excel Files With VBA Open Close File issue unsolved

[DocAElstein]

..... rest all files should be closed there can be 2 or 3 or file can be opened

This is contradiction?????

A file can be closed
A file van be left opened
A file cannot be open and closed – That is nonsense.


Try to explain again please

Or

Try this

Sub STEP_CloseOnly_Book1_xlsm()
Dim AnyWb As Workbook
    For Each AnyWb In Workbooks
        If AnyWb.Name = "Book1.xlsm" Then
         AnyWb.Close Savechanges = True
        Else
         
        End If
    Next AnyWb
End Sub

Or

Sub Close_Book1_xlsm()
 Workbooks("Book1.xlsm").Close Savechanges = True
End Sub