I recorded this code after putting 6/1/05 in A1

Selection.DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:= _
xlDay, Step:=1, Stop:=38534, Trend:=False

So -
dim x, y

x = Sheets("Sheet2").Range("A2")
y = 1 ' set y to the number of days between dates.

Range("A1")=Sheets("Sheet2").Range("A1")

Range("A1").DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:= _
xlDay, Step:=y, Stop:=x, Trend:=Fa


--
steveB

Remove "AYN" from email to respond
"STEVEB" wrote in
message ...

Hi

Does anyone have any suggestions for a macro that would fill dates down
on a spreadsheet based upon the certain dates entered on a different
sheet? For example on Sheet 1:

Cell A1 - Start Date - 1/1/2005
Cell A2 - End Date - 7/31/05

These dates vary & change all the time so I would like a Macro to look
at these dates and on Sheet 2:

Column A1 - Fill down all rows(212 days from 1/1/05 to 7/31/05) with
the range of dates on sheet 1(Cell A1 to A2).
Column B1 - Copy the Formula ( =TEXT(WEEKDAY(A2),"dddd")) in Column B
based on the number of rows generated from the start to the end date
(212 rows from 1/1/05 tp 7/31/05).

Any help would be greatly appreciated!

Thanks


--
STEVEB
------------------------------------------------------------------------
STEVEB's Profile:
http://www.excelforum.com/member.php...fo&userid=1872
View this thread: http://www.excelforum.com/showthread...hreadid=389971