VBAで開いているファイルを閉じる方法 ※確認メッセージも出さない

ファイルを閉じる方法
SAVEするかどうかのメッセージボックスを表示
Workbooks(OpenFilename).Close

SAVEせずに閉じる
Workbooks(OpenFilename).Close savechanges:=False

SAVEして閉じる
Workbooks(OpenFilename).Close savechanges:=True
※緑色も文字は対象のファイル名に置き換えてください。

※クリップボードにデータが残っている場合は、
　　別で貼付けに使うかと聞いてくるメッセージボックスが表示されてしまう場合があるので
Application.DisplayAlerts = False
でメッセージを出さないようにする。もちろんTrueにすると確認メッセージを表示

-----------------------------------------------------------------
Dim OpenFilename As Strig

Sub File_Close()
OpenFilename = "BBB.xls"

'開いたファイルを閉じる
Application.DisplayAlerts = False '確認メッセージを出さない

Workbooks(OpenFilename).Close savechanges:=False '保存せずに閉じる

Application.DisplayAlerts = True '確認メッセージを出す

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

EXCEL VBA xls Excel2003