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

[fixer]

This code is doing opposite Doc Sir I dont want "Book1.xlsm should be closed rest all files should be closed there can be 2 or 3 or file can be opened
plz recheckk Doc Sir