[VBA]シートの目次を作る

excelで沢山シートを作ると把握しきれない。
だから目次ページを作ろうぜ！という発想。

目次ページは目次の対象外として、
各シートのタブ名をリンク文字として、
各シートへのリンクを作る。

Private Sub CommandButton1_Click()
  Dim i As Integer
  Dim text As String
  Dim rng As String
  
  For i = 1 To Worksheets.Count
        text = Worksheets(i).Name
        Range("B" & i + 2).Value = i
        Range("C" & i + 2).Value = text
        
        If Range("C" & i + 2).Value = "" Then
        Else
            Range("C" & i + 2).Hyperlinks.Add anchor:=Range("C" & i + 2), _
                    Address:="", SubAddress:="'" + text + "'!A1"
        End If
        '追加　END
  Next
End Sub

更新@2011.01.04 23:24