
Originally Posted by
fixer
..... 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
Code:
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
Code:
Sub Close_Book1_xlsm()
Workbooks("Book1.xlsm").Close Savechanges = True
End Sub
Bookmarks