Dim exApp As Excel.Application
Dim exWb As Excel.Workbook
Dim JPGraphCharts As Excel.Charts
Dim JPGraphChart As Excel.Chart
Set exApp = New Excel.Application
Set exWb = exApp.Workbooks.Add()
Set JPGraphChart = Workbooks.Item(1).Charts.Add()
exApp.Visible = True
Now you have a chart1 in your excel application....

Cheers
Prabodh