Không chạy được đoạn code 'Tạo danh sách tên sheet'.

[Never Gone]

Em có một đoạn code này: nhưng khi chạy lại bị báo lỗi như thế này: mọi người giúp em fix với.



Code ban đầu của nó là:

Private Sub Worksheet_Activate()
Dim wSheet As Worksheet
Dim M As Long
M = 1
    With Me
       .Columns(1).ClearContents
       .Cells(1, 1) = "DANH SACH TEN SHEET"
       .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("A1"), Address:="", SubAddress:="Index", TextToDisplay:="TRO VE TRANG CHINH"
            End With
            Me.Hyperlinks.Add Anchor:=Me.Cells(M, 1), Address:="",  SubAddress:="Start" & wSheet.Index, TextToDisplay:=wSheet.Name
        End If
   Next wSheet
End Sub

 

[Hai Lúa Miền Tây]

Đoạn code trên bạn nên bỏ vào sheet code mới đúng, còn nếu bỏ vào module như bạn thì cần phải chỉnh sửa lại.

 

[vu_tuan_manh_linh]

Thấy có vấn đề gì đâu nhỉ! Nguyên nhân là do bạn để đoạn code trong Modul. Bạn phải kích vào Sheet muốn liệt kê danh sách và đặt code vào đó. Khi kích hoạt sheet đó nó sẽ liệt kê danh sách ra cho bạn. File đây bạn!
View attachment 69045

 

[PhanTuHuong]

Tôi sửa lại cho nó chạy, nhưng chưa hiểu hết yêu cầu của Tác giả:

Private Sub Worksheet_Activate()
Dim wSheet As Worksheet
Dim M As Integer
M = 1
With ActiveSheet
.Columns(1).ClearContents
.Cells(1, 1) = "DANH SACH TEN SHEET"
.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("A1"), Address:="", SubAddress:="Index", TextToDisplay:="TRO VE TRANG CHINH"
End With
Me.Hyperlinks.Add Anchor:=Me.Cells(M, 1), Address:="", SubAddress:="Start" & wSheet.Index, TextToDisplay:=wSheet.Name
End If
Next wSheet
End Sub