Tom, i get it by using Range:

A B
1 date price
2 2003/12/05 0.93
3 2008/09/03 3.26
4 2013/09/02 4.35
5 2033/08/28 5.21

Sub test()

Dim r As Range

Set r = Range("a2:a5")

'if the cells need change later.
'r.Item(1, 1) = CDate("2003/12/5")
'r.Item(2, 1) = CDate("2008/9/3")
'r.Item(3, 1) = CDate("2013/9/2")
'r.Item(4, 1) = CDate("2033/8/28")


ActiveSheet.ChartObjects(1).Chart.SeriesCollection (1).XValues = r
ActiveSheet.ChartObjects(1).Chart.Axes(xlCategory, xlPrimary). _
TickLabels.NumberFormat = "mm/dd/yy"
b = Array(0.93, 3.26, 4.35, 5.21)
ActiveSheet.ChartObjects(1).Chart.SeriesCollection (1).Values = b

End Sub

--END

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!