【Excel】シート名を表示させる

EXCELに多数のシートがあり、シート名にコード降っている。
そのコードをExcel内のセルに表示させようとしたが、簡単な関数は無かった。

以下のやり方で出来た。
https://www.cando.co.jp/column/column_14.html