请问高手怎么用excel的宏自动生成目录?一个表有很多n多sheet!用超连接很累

编一个宏,假设工作簿中有3个工作表
Sub abc()
For i = 2 To 3
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i - 1, "A"), Address:="", _
SubAddress:= Sheets(i).Name & "!A1"
Next i
End Sub