G

#### Guest

consecutive dates on separate rows. For example A1 (1/1/2006) has a date and

I need A2 and A3 to equal the next two days (i.e., 1/2/2006 and 1/3/2006).

I also donâ€™t know how to define cells as dates and how to assign a value

defined by a variable to a cell. The code below makes logical sense but the

syntax is wrong and I donâ€™t know how to fix it. Thank you for your help.

Sub Dates_OfCapture()

Dim Startdate As Date

Dim N1 As Integer

Dim N2 As Integer

Dim x As Integer

x = 10 'starting row

y = 1 'add one day

For N1 = 1 To 100

For N2 = 1 To 2 'two turns of For Loop for every Startdate

z = x + 1

Startdate = Cells(x, 2).Date 'defining the Startdate

Cells(z, 2).Date = DateAdd("dd", y, Startdate) 'adding a day to the

row below the starting date

x = x + 1 'add one to the the row number

y = y + 1 'add one to the number of days beind added to Startdate

Next N2

z = 1 'reset z (number of days added) back to 1

Next N1

End Sub