VBAが実行されているブック以外のブック「Book2.xls」をアクティブにしてから閉じます。
Sub Sample()
MsgBox "VBAが実行されているブックをアクティブにします。"
Windows(ThisWorkbook.Name).Activate
MsgBox "Book2.xlsをアクティブにします。"
Workbooks("Book2.xls").Activate
MsgBox "Book2.xlsを閉じます。"
Workbooks("Book2.xls").Close
End Sub