Hi,

Am Thu, 24 Jan 2013 14:48:19 +0000 schrieb Keyrookie:

I copied this code exactly as you have it and inserted a date but
nothing happened. I then substituted "Linear" for "Choose Date" and
still nothing. Am I missing something?

if you want to do it with VBA then try (modify to suit):

Sub Test()
Dim StopVal As Long
Dim myYear As Integer

myYear = 2013
StopVal = DateSerial(myYear, 12, 31)
[A1] = DateSerial(myYear, 1, 1)
Range("A1").DataSeries Rowcol:=xlColumns, _
Type:=xlChronological, Date:=xlDay, Step:=1, _
Stop:=StopVal, Trend:=False
End Sub


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2