作成してみました。と言ってもコードはどれもネットに転がっていた物を流用しただけのアドホックなコードです。

参考になるかどうかわからないですけど、以下に貼り付けておきます。以下のコードを対象のシートのマクロとして登録します。

ちなみに、下記に表示しているコードなんですけど、WP-Syntaxというプラグインを利用しているんですが、それの対応言語を以前調べたことがあったんですが忘れてしまったんで、再度調べました。URLをはっつけておきます。

https://qbnz.com/highlighter/

上記ページの左にある「Supported Languages」というのがサポートしている言語一覧になるそうです。

補足ですけど、下記のコードはVBなんですけど、上記のサイトを見るとVB.NETはサポートしているんですが、lang属性に「VB.NET」を指定しても効かなかったので、「VB」と指定すると無事効くようになりました。長くなりましたが、切り替え可能なシート一覧のスクリプトです。

各シートにテーブル名の物理名や、MySQLならDBエンジンなどを記載していると一覧で同様に生成できそうですね。

Option Explicit

Sub SheetList()
    Dim i As Integer
   
    'テーブル一覧の開始位置
    Dim x As Integer
    Dim y As Integer
    x = 4
    y = 4
   
    'テーブル一覧のシートが何枚目から始まるか
    Dim offset As Integer
    offset = 2
   
    For i = 1 To Sheets.Count - offset
        Hyperlinks.Add Anchor:=Cells(y + (i - 1), x), Address:="", SubAddress:= _
        Sheets(i + offset).Name + "!A1", TextToDisplay:=Sheets(i + offset).Name
    Next
    ActiveCell.EntireColumn.AutoFit
End Sub


Private Sub Worksheet_Activate()
    Call SheetList
End Sub