Little late but here's how I did it...

'Set PlotRange = Union(GraphRange1, GraphRange2)
'ActiveChart.ChartWizard Source:=PlotRange, _
Gallery:=xlXYScatter, Format:=1, PlotBy:=1, CategoryLabels:=1, _
SeriesLabels:=0, HasLegend:=2, Title:=ChartTitle & _
CategoryTitle:=CatAxisTitle, ValueTitle:=ValueAxisTitle, ExtraTitle:=""

ActiveChart.SeriesCollection(1).XValues = GraphRange2
ActiveChart.SeriesCollection(1).Values = GraphRange1
ActiveChart.ChartTitle.Caption = ChartTitle

ActiveChart.ChartType = xlXYScatter
ActiveChart.HasLegend = False
ActiveChart.Axes(xlCategory).HasTitle = True
ActiveChart.Axes(xlCategory).AxisTitle.Caption = CatAxisTitle
ActiveChart.Axes(xlValue).HasTitle = True
ActiveChart.Axes(xlValue).AxisTitle.Caption = ValueAxisTitle

Cheers
/H Adler

EggHeadCafe.com - .NET Developer Portal of Choice
http://www.eggheadcafe.com