ピボットテーブル作成時のエラー解消方法をお尋ねします（2）

Question

前提・実現したいこと

今回も、初歩的な質問で恐れ入ります。
原因も特定できているのですが解決できず、時間ばかり消費してしまい困っております。
ピボットテーブルキャッシュ設定時に以下のエラーメッセージが発生しました。
解消方法を教えて頂ければ助かります。

発生している問題・エラーメッセージ

実行時エラー’9’
インデックスが有効範囲にありません

該当のソースコード

Sub test31_0125_0128()

    Dim ws07 As Worksheet, ws08 As Worksheet
    Dim nengetsu As String
    
    Set ws07 = worksheets("月次")
    Set ws08 = worksheets("月次コスト")
    
    nengetsu = Application.InputBox("年月を入力してください", Type:=2)
    
    'ピボットデータの元データを選択
 
    Dim i As Long, j As Long
    
    j = ws08.Cells(1, Columns.Count).End(xlToLeft).Column
      
    Dim pc As PivotCache
    Dim pt As PivotTable
    
    'ピボットテーブルに使うデータを設定                               
    Set pc = ActiveWorkbook.PivotCaches.Create( _
                                SourceType:=xlDatabase, _
                                SourceData:=worksheets(8).Range(ws08.Cells(1, 1), ws08.Cells(i, j)))
    
    Dim shNo As Long
    
    shNo = Format(Now, "yyyymmdd")
    
    Debug.Print shNo
    
    'ピボットテーブル作成用シート追加
    worksheets.Add(after:=worksheets(worksheets.Count)).Name = shNo
    
    
    ' ピボットテーブルを作成する
　　’ここでエラーが発生します。
    Set pt = pc.CreatePivotTable( _
                                TableDestination:=worksheets("shNo").Range("B2"), _
                                TableName:="ピボットテーブル1")

試したこと

Set pt = pc.CreatePivotTable( _
                            TableDestination:=worksheets("20210128").Range("B2"), _
                            TableName:="ピボットテーブル1")

　これだとうまくいきます。
変数の「shNo」が、エラーになるのだと思います。

Answer 1

ここを

TableDestination:=worksheets("shNo").Range("B2")

こうしてください

TableDestination:=worksheets(shNo).Range("B2")

""で囲むと文字列指定となり、shNoシートがないのでエラーになります。
""をはずすと変数となり、その変数に設定された値のシートが参照されます。

Comments

[shu_shu]

コメントありがとうございます。""をはずしても、なぜか「実行時エラー’9’インデックスが有効範囲にありません」が出てしまいます。変数宣言の型などがおかしいのかもと考えています。

[radames1000]

Dim shNo As Stringにしてみましょう。

[shu_shu]

ありがとうございます。Stringにしたらエラー出ませんでした。文字列なんですね。ありがとうございました。