Sub 主页链接()

'清空=====================================

Sheets("主页").Select

Range("b6:C100").Select

Selection.ClearContents


'写入表名称和链接============================

i = 6

For Each sh In Worksheets


Sheets("主页").Cells(i, 2).Value = i - 5 '输出序号


Sheets("主页").Cells(i, 3).Value = sh.Name '输出表名称


Sheets("主页").Cells(i, 3).Select

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & sh.Name & "'!A1" '写入链接


i = i + 1


Next sh

End Sub