Can't input date range as x-axis in scatter with straight lines chart using VBA

Hi,

I have been trying to plot scatter with straight lines type of plot using VBA macro.

I have date and time in first column and few parameters in next columns. I want date to be x-axis and selected parameter to be y-axis. I have not had problem in plotting same Line type of charts using VBA macro. When I select scatter with straight lines type of chart, 0 to 1000 (or so) is coming as x-axis and selected parameter as y-axis.

Why can't i get date in x-axis? Any idea?

Line chart Code:

Sheets("data sheet").Select
Range("g5").Select
ActiveSheet.Shapes.AddChart.Name = "1"
ActiveSheet.ChartObjects("1").Select
ActiveChart.ChartType = xlLine
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = Cells(startrow, para1a)
ActiveChart.ChartTitle.Select
Selection.Delete
ActiveChart.SeriesCollection(1).XValues = Range(Cells(startrow + 1, 1), Cells(totalrows, 1))
ActiveChart.SeriesCollection(1).Values = Range(Cells(startrow + 1, para1a), Cells(totalrows, para1a))
ActiveSheet.ChartObjects(1).Activate
ActiveChart.Axes(xlCategory).Select
Selection.TickLabels.NumberFormat = "m/d/yyyy"
Selection.TickLabels.NumberFormat = "[$-409]d-mmm-yy;@"
Selection.TickLabelPosition = xlLow

Scatter chart code:



Sheets("data sheet").Select
Range("g5").Select
ActiveSheet.Shapes.AddChart.Name = "1"
ActiveSheet.ChartObjects("1").Select
ActiveChart.ChartType = xlXYScatterLinesNoMarkers
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = Cells(startrow, para1a)
ActiveChart.ChartTitle.Select
Selection.Delete
ActiveChart.SeriesCollection(1).XValues = Range(Cells(startrow + 1, 1), Cells(totalrows, 1))
ActiveChart.SeriesCollection(1).Values = Range(Cells(startrow + 1, para1a), Cells(totalrows, para1a))
ActiveSheet.ChartObjects(1).Activate
ActiveChart.Axes(xlCategory).Select
Selection.TickLabels.NumberFormat = "m/d/yyyy"
Selection.TickLabels.NumberFormat = "[$-409]d-mmm-yy;@"
Selection.TickLabelPosition = xlLow

Line type

\1

scatter type

\1