Olá amigos. Tenho o seguinte código pra fechamento de determinado arquivo:
------------------------------------------------
Sub AUTO_CLOSE1()

Application.ScreenUpdating = False
ActiveWorkbook.Save
With Application
.Caption = "Excel" 'Não esquecer deste detalhe
End With

With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
End With

Application.DisplayFullScreen = False
Application.DisplayStatusBar = True
Application.DisplayFormulaBar = True
Dim cBar1 As CommandBar
For Each cBar1 In Application.CommandBars
If cBar1.Enabled = False Then
cBar1.Enabled = True
End If
Next
Application.ScreenUpdating = True
ActiveWorkbook.Saved = True
Application.Quit
ActiveWorkbook.Close

End Sub
-----------------------------------------------------

Ocorre que, qdo clico no botão que aciona essa macro, se houver outros arquivos em excel abertos, todos eles são fechados. Tem como eu inserir algo neste código que, uma vez acionado o botão, apenas esse arquivo fecha, sem afetar os outros abertos?

Agradeço a atenção. Abraços.