Macro en Excel para crear un indice de hojas

Tengo la siguiente macro para crear un índice de las hojas que tengo en un libro determinado. El problema es que cuando inserto un gráfico en una hoja nueva, al no tener celdas, no aparece en el índice. Como puedo modificar esta macro, para que incluya estos gráficos.

Private Sub Worksheet_Activate()
Dim cHoja As Worksheet
Dim L As Long
L = 1
With Me
.Columns(1).ClearContents
.Cells(1, 1) = "INDICE"
.Cells(1, 1).Name = "Indice"
End With
For Each cHoja In WorksheetsIf cHoja.Name <> Me.Name Then
L = L + 1
With cHoja
.Range("A1").Name = "Inicio" & cHoja.Index
.Hyperlinks.Add Anchor:=.Range("A1"), Address:=" ",SubAddress:="Indice",TextToDisplay:="Volver al índice"
End With
Me.Hyperlinks.Add Anchor:=Me.Cells(L, 1), Address:=" ", SubAddress:="Inicio" &cHoja.Index, TextToDisplay:=cHoja.Name
End If
Next cHoja
End Sub

Muchas gracias.

Saludos.