VB初心者質問スレ　Part8 （･∀･）

EXCEL関係のＱ＆Ａや解説本を調べても分からなかったので
質問します。分かる方教えてください。ここを見ろでも結構です。
当方EXCEL2000です。

TEST01.XLS（名称は都度変わります）のマクロから
TEST02.XLS（名称は都度変わります）内部のB1:C2のセルを
TEST01.XLSのA1:B2のセルにコピーして
TEST02.XLSを自動で閉じたいのですが？
−−−−−−−−−−−−−−−−−−
Sub a()
　　Dim boCheck As Boolean

　　　　boCheck = Application.Dialogs(xlDialogOpen).Show

　　If boCheck = False Then
　　　　MsgBox "キャンセルが選択されました。処理を中止します。"
　　　　Exit Sub
　　End If

　　Range("B1:C2").Copy

　　ActiveWorkbook.Close SaveChanges:=False

　　Range("A1:B2").Select
　　ActiveSheet.Paste
End Sub
−−−−−−−−−−−−−−−−−−−−−
上記マクロでは、A1:B2になにも入りません。
ご存知の方、助けてください。 おながいします。