VBA シート選択のシート名にワイルドカード

Question

いつも初歩的な質問に答えて頂きありがとうございます。

シートを選択するときにシート名を使うことでシートを選択できるかと思うのですが、その際にワイルドカードを使用することはできるのでしょうか。
また同時変数の使用できるのでしょうか。

したいことを簡素化して申し上げますと、
A1セルに別のシート名の一部が入力されていて、そのA1セルに入力された値とワイルドカードを繋げて、別シートを取得したいということです。
実際にマクロを実行しますと インデックスが有効範囲にありません。 というエラーメッセージが出てきてしまいます。

以下にサンプルコードを載せましたので参考にお願い致します。

Sub sheetNameWildcard()

Dim a1Cell
'アクティブシートのa1セルに入力されている別のシート名の一部を取得
a1Cell = ActiveSheet.Cells(1, 1).Value
'取得した別のシート名の一部とワイルドカードを繋げてシートを取得
Sheets(a1Cell & "_*").Cells(1, 1).Value = 12345

End Sub

Comments

[tatsu99]

そのようなことはできません。自前でワイルドカードを展開する仕組みを造るしかないです。