It shouldn't be hard to adapt the technique shown he

http://www.mcgimpsey.com/excel/lookuppics.html

change the objects from Pictures to ChartObjects, e.g.:

Private Sub Worksheet_Calculate()
Dim oChart As ChartObject
Me.ChartObjects.Visible = False
With Range("F1")
For Each oChart In Me.ChartObjects
If oChart.Name = .Text Then
oChart.Visible = True
oChart.Top = .Top
oChart.Left = .Left
Exit For
End If
Next oChart
End With
End Sub




In article ,
kim wrote:

Hi
I have 8 pie charts on a worksheet.
I would like a drop down menu of items that are the chart name and when this
is selected the chart is displayed adjacent to the pull down menu, this is to
enable cycling through one chart ata time.
Thanks