列出表格的目錄,並添加超級鏈接

‘列出表格的目錄,並添加超級鏈接
Sub cb_test()
Dim ll_SheetCount
Dim ls_SheetName
Dim ll_Item
Dim ls_SubAddress

Dim ls_ryxm     '人員姓名 B2
ll_SheetCount = Worksheets.Count

For ll_Item = 2 To ll_SheetCount
   ls_SheetName = Sheets(ll_Item).Name
   ls_ryxm = Sheets(ll_Item).Cells(2, 2).Value '人員姓名
   
   If InStr(1, ls_SheetName, "(") > 0 Then
      ls_SubAddress = "'" + ls_SheetName + "'!A1"  '帶空格需要引號，特殊處理
   Else
        ls_SubAddress = ls_SheetName + "!A1"
   End If
   
   Sheets(1).Cells(ll_Item, 5).Value = ls_ryxm
   Sheets(1).Cells(ll_Item, 4).Value = ls_SheetName
   
   
   Sheets(1).Cells(ll_Item, 4).Select
   Sheets(1).Hyperlinks.Add anchor:=Selection, Address:="", SubAddress:=ls_SubAddress, TextToDisplay:=ls_SheetName
   
Next

End Sub