Excelで変数でワークシートのオブジェクト名を指定する

Question

ExcelのVBAでワークシートをオブジェクト名で指定して処理をしたいです。オブジェクト名を利用するのは、ワークシートのシート名がユーザーの操作によって変わっても、VBAでの処理は正しく行えるようにするためです。

下記コードを実行すると、最後の行で型が一致しませんエラーが出ます。
どのようにしたらよいでしょうか。
よろしくお願いします。

Sub selectObjName()
    Worksheets("Sheet2").Range("A1").Value = "シート名で指定"
    Debug.Print ThisWorkbook.VBProject.VBComponents("objSheet").Properties("Name")
    Worksheets(ThisWorkbook.VBProject.VBComponents("objSheet").Properties("Name")).Range("A1").Value = "オブジェクト名を変数で指定"
End Sub

Answer 1

Properties("Name") はPropertieオブジェクトを返します。
Properties("Name").ValueでString型の名前を返します。

Sub selectObjName()
    Worksheets("Sheet5").Range("A1").Value = "シート名で指定"
    Debug.Print TypeName(ThisWorkbook.VBProject.VBComponents("objSheet").Properties("Name")) 'Property
    Debug.Print TypeName(ThisWorkbook.VBProject.VBComponents("objSheet").Properties("Name").Value) 'String
    Worksheets(ThisWorkbook.VBProject.VBComponents("objSheet").Properties("Name").Value).Range("A1").Value = "オブジェクト名を変数で指定"
End Sub

ただ、こんな面倒なことをせずに、下記でもおなじことだと思いますが。

objSheet.Range("A1").Value = "オブジェクト名で指定"

Comments

[nkym771]

ありがとうございます。
動作しました。