如何制作目录不包含隐藏工作表

Fore95

老师，您好。请问excel工作薄有很多工作表，但是隐藏部分工作表后怎么做到自动更新目录。

3190496160

Private Sub Worksheet_Activate()
n = 1
[a1].CurrentRegion.Offset(1) = Empty
For Each sh In Sheets
    If sh.Name <> "目录" And sh.Visible = -1 Then
        n = n + 1
        Cells(n, 1) = sh.Name
    End If
Next sh
End Sub
Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Row > 1 And T.Column = 1 Then
    If T.Count > 1 Then Exit Sub
    Sheets(T.Value).Select
End If
End Sub

3190496160

代码放到  目录  工作表代码区域内