ACCESS VBAからExcelの複数シートへの一括操作について

Question

Accessで取得した結果をExcelの複数のシートに張り付けたいのですが、シート毎に貼り付けをすると時間がかかります。
FillAcrossSheetsを利用してSheetを一括で貼り付けようとしたのですが、エラーとなります。下記のようなコードです。

Wb.Worksheets("Sheet4").Range("C4:AH4") = ある配列

Wb.sheets(Array("Sheet1","Sheet2","Sheet3")).FillAcrossSheets Range:=Wb.Worksheets("Sheet4").Range("C4:AH4") 

エラー内容（実行時エラー1004）

Sheets クラスの FillAcrossSheets メソッドが失敗しました。

ご教授いただきますと幸いです。

Answer 1

> エラー内容（実行時エラー1004）
> Sheets クラスの FillAcrossSheets メソッドが失敗しました。

> Wb.sheets(Array("Sheet1","Sheet2","Sheet3")).FillAcrossSheets Range:=Wb.Worksheets("Sheet4").Range("C4:AH4")

FillAcrossSheets メソッドの 引数 Range に渡しているのが
Sheet4 のセル範囲（ Range オブジェクト）だからです。

渡していいのは、元の Sheets / Worksheets コレクションに含まれている
いずれか 1 つのワークシートのセル範囲です。

---

Wb.Worksheets(Array("Sheet1","Sheet2","Sheet3","Sheet4")).FillAcrossSheets Range:=Wb.Worksheets("Sheet4").Range("C4:AH4")

---

Answer 2

出来ました。ありがとうございます。助かりました！