エクセルVBAで別のエクセルファイルのシートをコピーしてきたい

Question

使用しているエクセルは2003です。

全体像は下記の通りです。
1.エクセルファイル1のなかでマクロを起動する。
2.起動すると他のエクセルファイルを選択できて、その中に指定された名前と同じシートがある場合そのシートをエクセルファイル1にコピーしてくる。
3.指定名のシートがない場合エラーで再選択or終了になる

Answer 1

Sub Read()
Dim res
Dim w As Workbook

res = Application.GetOpenFilename()
If res = "" Then Exit Sub

Set w = Workbooks.Open(Filename:=res)
w.Worksheets("xxxx").UsedRange.Copy _
Destination:=ThisWorkbook.Worksheets("xxxx").Cells.SpecialCells(xlCellTypeLastCell).Offset(1).End(xlToLeft)
w.Close False
End Sub

という方法がありました。
http://okwave.jp/qa/q5950491.html
こちらのページを参考にさせて頂きました。