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

[fixer]

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

code has errors 100% , i am unable to make the code for the same Doc Sir plz help