ファイル間のシートコピー（Match関数とArray）

質問

初心者の質問で申し訳ありませんが、困っているので教えてください。
AというファイルとBというファイルがあります。
Bがマクロ実行ファイルで、Bでは複数のマクロがあり、そのマクロにAのデータが必要です。
Aのファイルには13シートありますが、そのうちの5つのシートの情報を
Bファイルのシートにコピーしたいというのが状況です。
（Bファイルには同名のシートが既にあり、Aファイルから毎回同じシート名のデータをコピーしたい）

*ActiveWorkbookがAファイルになっているという状態で、下記のように
書きましたが、"r=..."のところでアプリケーション定義、またはオブジェクト定義のエラーになります。
Dim sh As Worksheet
Dim r As Long
Dim myTarget As Variant

With ActiveWorkbook
For Each sh In Sheets
r = WorksheetFunction.Match( _
sh.Name, Array("A", "B", "C", "D", "E"), 0)
If r > 0 Then
sh.Cells.Copy
Workbooks("B").Worksheet(sh.Name).Paste
End If
Next
End With

よろしくお願いいたします。

回答No.1

n-jun · ベストアンサー

Match関数の目的が不明ですが・・・

例えば。
Sub test()
Dim wb1 As Workbook
Dim wb2 As Workbook
Dim r As Variant

Set wb1 = Workbooks("Book1.xls") 'A_Book
Set wb2 = ThisWorkbook 'B_Book

For Each r In Array("A", "B", "C", "D", "E")
wb1.Worksheets(r).Cells.Copy wb2.Worksheets(r).Range("A1")
Next
End Sub
こんな感じのことではないでしょうか？

お礼

お礼が遅れて本当に申し訳ありませんでした。
回答をありがとうございました。
シートのテキストが大きすぎるのＰＣが固まってしまうため
実現できませんでしたが、勉強になりました。