Syntax Error adding Date Picker to a range

[B. Baumgartner]

I'm trying to add the date picker to a range of cells per the instructions on a msdn developer web page and am getting a syntax error, can someone help

Private Sub ExcelRangeAddDateTimePicker()

Dim DateTimePicker1 As Microsoft.Office.Tools. _
Excel.Controls.DateTimePicker = Me.Controls. _
AddDateTimePicker(Me.Range("A1", "C1"), _
"DateTimePicker1")
DateTimePicker1.CalendarMonthBackground = _
Color.LightBlue

End Sub

Here's the link

http://msdn2.microsoft.com/en-us/lib...1h(VS.80).aspx

[royUK]

That's not VBA code, it's VB