シートの増減はあるのでしょうか？
シートが増えた場合は増えたシートにジャンプするボタンを追加するのでしょうか？
シート数が多い場合、ボタンが多くなり扱いづらくなるような気がします。



'標準モジュール

Sub sht()
 Worksheets(ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text).Activate
End Sub

どこかのシートにシェイプを配置し、シェイプのテキストに"Sheet1"と入力、シェイプを右クリックで「マクロの登録」で
「sht」を選択
↓
シェイプをCtrlキーを押しながらドラッグしてｺﾋﾟｰ、テキストを"Sheet2"と修正
↓
シェイプを必要なだけコピーしテキストを修正する

作成したシェイプを全部選択(オブジェクトの選択でドラッグで範囲指定するか、Ctrlキーを押しながらシェイプ
をクリックしていく)しコピー
↓
貼り付けたいシートをアクティブにしてシェイプを貼付け
これを貼り付けたいシート分だけ繰り返す

これで、シート名のシェイプをクリックしたらそのシートにジャンプします。

ただし、この方法はジャンプしたいシートが追加になったときに面倒です。

私ならユーザーフォームを使うか、シート一覧を表示する方法を選択します。

OKさん、
ありがとうございます。

>シートの増減はあるのでしょうか？
１０個です

>私ならユーザーフォームを使うか、シート一覧を表示する方法を選択します。


私の希望は

左端から
最初のシート　：シート名「名前：あいう」
２番目のシート：シート名「名前：かきく」
３番目のシート：シート名「名前：たちつ」
４番目のシート：シート名「名前：はひふ」
　　・
　　・
１０番目のシート：シート名「名前：やゆよ」
とある場合に

どのシートの5行目あたりにも
各シート名のついたボタンが横並びに１０個あって

自分が移動したいシート名のボタンをクリックすると
該当のシートに移動できるというものです

それが、貴殿の
'標準モジュール

Sub sht()
 Worksheets(ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text).Activate
End Sub

と同じものでしょうか？

それが、私の希望のものであれば、
解決といたします
恐れ入ります

よろしくお願いいたします

Sub sht()
 Worksheets(ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text).Activate
End Sub

アクティブシートのシェイプのテキストが「あいう」だった場合、

「sht」マクロを呼び出したシェイプのテキストと同じ名前のシート(今回は「あいう」)をアクティブにせよ

というマクロになります。

なので、
どのシェイプからも同じマクロを呼び出しています。
マクロを複数作る必要が無くなります。