VBA PivotItemをセルの中身で選択

お世話になります。初心者です。
別シート（Sheet1)のJ1セルに10と入力されている場合に、その10を利用して、
PIVOTテーブルの列ラベルで現在１となっているものを10に変更したいのですが、うまくいきません。分からないながら、調べて下記のようにやってみたのですが、エラーになってしまいます。
どうぞ宜しくお願い致します。

Dim itm As PivotItem
itm.Name = Worksheets("Sheet1").Cells(1, 10).Value

Application.DisplayAlerts = False
With ActiveSheet.PivotTables(pvt.Name).PivotFields("A")
.PivotItems("itm").Visible = True
.PivotItems("1").Visible = False
End With
Application.DisplayAlerts = True

No.1 ベストアンサー 回答者： end-u 回答日時： 2020/02/21 12:00

どこでどんなエラーになりますか？

やりたいのはおそらく以下のような感じだとは思いますけれども
Dim s As String
s = Worksheets("Sheet1").Cells(1, 10).Value
With pvt.PivotFields("A")
　　.PivotItems(s).Visible = True
　　.PivotItems("1").Visible = False
End With

この回答へのお礼

どうもありがとうございます。
解決致しました。
大変助かりました、感謝致します。

お礼日時：2020/02/21 14:10