VBA Chart - X Axis To Appear As Dates?

I have a simple piece of code that creates a chart using the the values in column A as the x-axis and the values in column E as the y-axis. The values in Column A are all dates in this format: mm.dd.yyyy. However, when I collect the x-values they always appear as numbers (1,2,3). Even if I format the axis to Dates, they appear as 1.00.1900, 1.02.1901, etc.

Here is the code (also, I would like a VBA solution but if this is with excel's chart tools, so be it).

Code:

Sub Macro2()
ActiveSheet.Shapes.addChart.Select
ActiveChart.ChartType = xlXYScatter
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = "=""Rate of Productivity"""
ActiveChart.SeriesCollection(1).XValues = "='Sheet1'!$A$2:$A$4"
ActiveChart.SeriesCollection(1).Values = "='Sheet1'!$E$2:$E$4"
End Sub