Hỏi về code tạo mục lục tự động trong excel. (1 người xem)

[builong]

Mình muốn tạo 1 sheet mục lục trong file excel như dưới. nhưng thay vì lấy tên sheet làm mục lục, mình muốn lấy tên từ 1 dòng bất kỳ (a1, b1, c1........). mong các bác giúp đỡ. thanks

Private Sub Worksheet_Activate()Dim wSheet As Worksheet
Dim M As Long


M = 1


    With Me
        .Columns(1).ClearContents
        .Cells(1, 1) = "INDEX"
        .Cells(1, 1).Name = "Index"
    End With


    For Each wSheet In Worksheets


        If wSheet.Name <> Me.Name Then


        M = M + 1


        With wSheet


            .Range("H1").Name = "Start" & wSheet.Index


            .Hyperlinks.Add Anchor:=.Range("H1"), Address:="", SubAddress:="Index", TextToDisplay:="1"


        End With


            Me.Hyperlinks.Add Anchor:=Me.Cells(M, 1), Address:="", SubAddress:="Start" & wSheet.Index, TextToDisplay:=wSheet.Name


        End If
        Next wSheet


End Sub