Try this as a starting point:
Run the following code once to add each shape in the sheet - you will need to write additional code to include only chart shapes.
Code:
Sub populatelistbox()
Dim shapecnt As Shape
listboxindex = 1
For Each shapecnt In Worksheets("Sheet1").Shapes
ListBox1.AddItem shapecnt.Name
Next
End Sub
Then when you click an item in the listbox, the chart will be selected.
Code:
Private Sub ListBox1_Click()
Shapes(ListBox1.Text).Select
End Sub
Take care.
Owen