VBA快速获取创建sheet链接

最近习惯性的用excel管理项目，创建DB表的描述也习惯用excel

但是很多个sheet页，想在第一个sheet页面做一个一览表，但是一个一个的加链接实在是太慢了

于是写了一个vba

Sub read()
Dim ws As Worksheet
Dim cel As Object
Set ws = Worksheets("列表")
For i = 2 To Sheets.Count
Set cel = ws.Cells(3 + i - 1, 3)
cel = Sheets(i).Name
cel.Hyperlinks.Add anchor:=cel, Address:="", SubAddress:=Sheets(i).Name & "!A1", TextToDisplay:=Sheets(i).Name '创建超链接每个sheet的A1
Next
End Sub