VBA를 사용하여 Excel에서 인덱싱

Question

아래 코드는 내 통합 문서에서 인덱싱에 사용됩니다. 문제는이 코드가 A1의 셀을 "색인으로 돌아 가기"로 덮어 쓰는 것입니다. 이 코드를 수정하여 각 시트의 현재 값 A1 셀을 덮어 쓰지 않고 현재 값이 유지 된 A1 셀의 하이퍼 링크가 인덱스 페이지로 다시 생성되도록하려면 어떻게해야합니까? TIA

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

l = 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 
      l = l + 1 
       With wSheet 
        .Range("A1").Name = "Start_" & wSheet.Index 
        .Hyperlinks.Add Anchor:=.Range("A1"), Address:="", _ 
        SubAddress:="Index", TextToDisplay:="Back to Index" 
       End With 

       Me.Hyperlinks.Add Anchor:=Me.Cells(l, 1), Address:="", _ 
       SubAddress:="Start_" & wSheet.Index, TextToDisplay:=wSheet.Name 
     End If 
    Next wSheet 

End Sub 

Answer 1

내게는 꽤 직설적이지만 아마도이 문제를 이해하지 못했을 것입니다.

With wSheet 
     .Range("A1").Name = "Start_" & .Index 
     .Hyperlinks.Add Anchor:=.Range("A1"), Address:=vbNullstring, _ 
     SubAddress:="Index", TextToDisplay:=.Range("A1").Text 
    End With