ハイパーリンクされたシートのリストを作成します

ブック内のそれぞれのシート名にそれぞれハイパーリンクされているシートのリストを作成するのはどうですか？さて、これは次のコードで行うことができます-Sub CreateHyperlinkedSheetList（）

Dim ws As Worksheet Application.ScreenUpdating = False ActiveSheet.Range（ “A：A”）。Clear’ActiveSheet.Range（ “A”＆Rows.Count）.End（xlUp）を使用してActiveWorkbook.Worksheetsの各wsの既存のリストをクリアします。