【ExcelVBA】範囲選択の方法について

またまた失礼します・・・！
”元データを変数に格納”の箇所でエラーNo1004、アプリケーション定義またはオブジェクト定義のエラーが出てしまいます＞＜
A列からJ列ある範囲の中で、A5からF列の最終行まで範囲選択し、その後ピボットテーブルを作成したいです。
コードのどこを修正すればうまく動くでしょうか？
詳しい方教えてくださいませ(._.)

Dim MaxRow As Long
MaxRow = Cells(Rows.Count, 1).End(xlUp).Row

Dim pivot As Range ' 新素材シートのピボットテーブルの元データ

' 元データを変数に格納
Set pivot = Sheets("素材").Range(Range("A5"), Cells(MaxRow, 6)).Select

' ピボットテーブルの作成
ActiveWorkbook.PivotCaches.Create(xlDatabase, _
pivot).CreatePivotTable Sheets("ピボットテーブル").Range("C3")

No.1 ベストアンサー 回答者： nekoronda 回答日時： 2020/10/01 14:40

selectを外しても駄目ですか？

Set pivot = Sheets("素材").Range(Range("A5"), Cells(MaxRow, 6))

この回答へのお礼

迅速なご回答ありがとうございます！
selectを外したら動きました！
ありがとうございます(^^)/

お礼日時：2020/10/01 16:57

No.2 回答者： めぐみん_ 回答日時： 2020/10/01 14:45

With Sheets("素材")

Set pivot =.Range("A5", .Cells(MaxRow, 6))
End with

この回答へのお礼

ご回答ありがとうございます！
助かりました(*'▽')

お礼日時：2020/10/01 16:57