Vise en graf via en drop-down

Koden trikker på en datavalideringsliste i C1 med tallene 1;2;3;4;5 eller hvor mange grafer du nu har
Indsæt den i Arkets kodemodul

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, Range("C1")) Is Nothing Then Exit Sub
ActiveSheet.ChartObjects(Target.Value).ShapeRange.ZOrder msoBringToFront
End Sub

Det ser ud til at være meget tæt på det jeg skal bruge! Forskellen er, at brugeren på et andet ark vælger et tal fra 0-6 i en kombinationsboks. Dette tal kan så lande i C1 på det ark hvor graferne er. Men hvis tallet 1 er valgt i kombinationsboksen skal graf 1 vises etc. Kan du fixe den? ;O) På forhånd MANGE tak!

Så er det nok bedst at lade kombinationsboksen skifte
ret ark og evt combobox1 til aktuel

Private Sub ComboBox1_Change()
On Error Resume Next
Sheets("Ark2").ChartObjects(ComboBox1.Value).ShapeRange.ZOrder msoBringToFront
End Sub

Tak - men mine grafer hedder fx "Diagram 131" "Diagram 132" etc. Det er vel det der skal ind i ChartObjects(ComboBox1.Value)... 
hvordan får jeg det? Ja beklager - er lidt tynd i VB!

Har enten ikke fået eller overset mail vdr. denne tråd
så lidt forsinket forslag kommer her
Min oprindelige tanke var at anvende diagrammets indeks nr. men
man kan også som du selv foreslår gøre sådan

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, Range("C1")) Is Nothing Then Exit Sub
ActiveSheet.ChartObjects("Diagram " & Target.Value).ShapeRange.ZOrder msoBringToFront
End Sub

?

Tak - jeg har via dit tidligere forslag fået løst problemet. Super!!