ファイルオープンのマクロについて

ファイルオープンのダイアログを表示して、
ファイルを選んで、開く
で、それを変数(As Workbook)に格納

MsgBox "取り込むファイルを指定してください。"　'←これは必要ないけれど一応入れている
OpenFileName = Application.GetOpenFilename("ここに書いた内容がデフォルト表示になる,*.*")
If OpenFileName <> "False" Then
Workbooks.Open OpenFileName
End If
Set DayBook = ActiveWorkbook

最初に、開いているブックを変数に格納して、ファイルを開いて、それも変数に格納して
二つのブック間でシートを移動したりコピーしたりして、ターゲットブックは閉じちゃう
というのがよさそう。
ネットで調べると"ReturnBook"とかにして、開くブックを"TargetBook"とかにしてコードを公開してくれているので
調べてみるといいかもしれない。