Worksheetオブジェクトを取得できない

Question

以下のように非常に単純と思える部分でうまくいきません。
8行目でSet 転記元シート = ThisWorkbook.Worksheets("中継地")
としているので転記元シートには「中継地」が格納されてほしいのですが、格納されることはなくActiveシートで実行されてしまいます。

ブレイクポイントを設定してローカルウィンドウで確認すると画像のようになり全く想像してない挙動になります。（⊕ボタンを押すと新しいプロファイルの作成ウィンドウが出現）。

もちろん”中継地”というシートは存在しています。漢字のミスかと思いローマ字のaなどにしてみましたが効果ありませんでした。

Option Explicit

Private 転記元シート As Worksheet
Private 転記元最終行番号 As Integer
    
Sub 中継地シートをセットして初期化()

Set 転記元シート = ThisWorkbook.Worksheets("中継地")
転記元最終行番号 = 転記元シート.Cells(Rows.Count, 1).End(xlUp).row
Range(Cells(1, 1), Cells(転記元最終行番号, 5)).ClearContents

End Sub

キャンセルをすると↓

原因と対策を教えて頂けると助かります。

Answer 1

”全く想像してない挙動”がRange(Cells(1, 1), Cells(転記元最終行番号, 5)).ClearContentsの部分で発生しているのであれば、下記コードのように”どのシートの”セルなのかを明示すれば良いかと思います。

Range(転記元シート.Cells(1, 1), 転記元シート.Cells(転記元最終行番号, 5)).ClearContents

Comments

[Komugi]

確かにそうでした。。。Rangeのなかでcellsを使うときは具体的にシート名から書くのが決まりでしたね！