マクロボタンと同じ名前のシートをアクティブにする

質問

• 28個のボタンが1シート目に並んでいます。ボタンには名前が表記されており、まだマクロの登録は行われていません。ボタンをクリックすると、ボタンと同じ名前のシートをアクティブにするマクロを登録したいです。また、ボタンの数は常に28個ではなく、25個や26個になる場合もあります。
• 28個のボタンがあり、ボタンには名前が表記されています。まだマクロの登録は行われていません。ボタンをクリックすると、ボタンと同じ名前のシートをアクティブにするマクロを作成したいです。ただし、ボタンの数は常に28個ではなく、25個や26個になる場合もあることに注意してください。
• 28個のボタンが1シート目に並んでいます。ボタンには名前がありますが、マクロの登録はまだ行われていません。ボタンをクリックすると、ボタンと同じ名前のシートをアクティブにするマクロを作成したいです。ただし、ボタンの数は常に28個ではなく、25個や26個になる場合もあります。

回答No.3

mt2008

次はこの内容の質問が来るんじゃないかと思っていました。
指定のシートを選択する「シート選択」と言うマクロを用意し、ボタン設置の時にそのマクロに引数でシート名を渡す様に設定しましょう。
ついでに、各シートのI2セルにシート名を入れなくてもWorksheets(n).Nameでシート名が取得できますよ。
＃OnAction 引数の「”」と「’」の位置と数を間違えない様にご注意を

Sub ボタン設置()
　　With Worksheets(1)
　　　　For i = 1 To (Worksheets.Count - 1)
　　　　　　nX = 145 * (1 + ((i - 1) Mod 8))
　　　　　　nY = 30 * (1 + Int(i / 8))
　　　　　　sName = Worksheets(i + 1).Name
　　　　　　With .Buttons.Add(nX, nY, 140, 20)
　　　　　　　　.Text = sName
　　　　　　　　.OnAction = "'シート選択""" & sName & """'"
　　　　　　End With
　　　　Next i
　　End With
End Sub
Sub シート選択(sShtName As String)
　　Worksheets(sShtName).Select
End Sub

お礼

ご回答ありがとうございます。
ご回答者様のご教授くださったマクロを参考にさせていただきました。

丁寧に教えてくださったにも関わらず大変恐縮ですが、
何度も改善案等提案して下さった別の回答者様をベストアンサーに選定いたしました。
本当にすみません。。。

ありがとうございました！

補足

ご回答ありがとうございます！

回答者様のマクロを実行したところ、ボタンをクリックすると
アクティブにならないボタンが何個がありました。
見てみると、
「名前に『大文字の英語』を含むボタン」がエラー対象のようです。

回答者様の方法でぜひとも作業を進めたいと考えておりますので、
もし原因が分かるようでしたら、教えていただきたいです。
重ね重ね質問してしまい、大変申し訳ございません。
よろしくお願いします。