oprydning af chart-indeks numre

...højreklik på fanebladet og omdøb manuelt?

Problemet er at alle charts ligger i et sheet. Jeg vil vha en makro gennemløbe alle charts og ændre forskellige værdier i hvert chart. Men når jeg ikke kan se, hvad det enkelte chart har af nummer, er det svært.
Hvis jeg markerer et chart kan jeg finde dets nummer vha.

Sub nr_active_chart()
'giver nummeret på den aktive chart, kræver at chart er markeret!
Dim sChartname As String
Dim sSheetname As String
sChartname = ActiveChart.Name
sSheetname = ActiveSheet.Name
sChartname = Right(sChartname, Len(sChartname) - Len(sSheetname) - 1)
End Sub


Mit første chart har nummer 43. Det ville være nemmere hvis det starter med 1.

Hej,
Hvis dine spørgsmål stadig er aktuelle er du velkommen til at tage fat i en af os. Se mere på www.exacto.dk
Mvh
pjn