You can't use a drop down box but you can use an Input Box. This macro will
work if you already have a chart on the worksheet. Change Chart Name "Chart
1" and sheet name as required.
Sub GetChart()
'
Set ChartArea = Application.InputBox( _
prompt:="Select Chart Range", Type:=8)
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.SetSourceData _
Source:=Sheets("Sheet2").Range(ChartArea.Address)
End Sub