Indholdsfortegnelse i Excel

Jeg har gennem længere tid opbygget en ret så omfattende rapportpakke bestående af en lang række arkfaner, som brugeren navigerer imellem for at finde de informationer som er relevante for ham/hende.

For at lette denne navigation, har jeg indbygget en "Indholdsfortegnelse" som menupunkt, hvorfra brugeren kan bladre i indholdet.

So far ... so good :-)

Funktionen læser p.t. rapportnavn i celle Al, og opbygger så indholdsfortegnelsen på baggrung af dette celleindhold.

Private Sub traverserArk()
Dim ark, menuPunkt As String
On Error Resume Next
    For Each ark In ActiveWorkbook.Sheets
        If ark.Visible = True Then
            menuPunkt = ark.Cells(1, 1)
            CreateMenuItem menuPunkt, "module1.MenuX", True, True, ark.Name
        End If
    Next ark
End Sub

.... men nogle af rapporterne består af PivotChart rapporter, hvor det ikke er muligt at gøre tilsvarende.

Er der nogen måde hvor denne

menuPunkt = ark.Cells(1, 1)

kan læse eventuelt fra sidefod i stedet ???

Eller et andet alternativ !!!!