Açık çalışma kitaplarından ismi verilen çalışma kitabını kaydettikten sonra kapatan VBA kodu alternatifidir.
Option Explicit
Sub AcikCalismaKitaplarindanIsmiVerileniKapat(calismaKitabiAdi As String)
ActiveWorkbook.Save
Windows(calismaKitabiAdi).Close
End Sub
Sub Kullanim()
AcikCalismaKitaplarindanIsmiVerileniKapat "OrnekDosya.xlsm"
'AcikCalismaKitaplarindanIsmiVerileniKapat ActiveWorkbook.Name
End Sub