One way

Sub datesinaltrows()
mc = "d"
sd = InputBox("Enter start date, ie 7/4")
nd = InputBox("Enter number of days")
Cells(1, mc) = sd
For i = 2 To nd
Cells(i * 2 - 1, mc) = Cells(1, mc) + i - 1
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"oldLearner57" wrote in message
...
hi community

how can i fill up alternate rows with a series of date that runs
consecutively

example:

A B C D

1 01-May

2

3 02-May

4

5 03-May

can this sort of series fill possible?


thanks community

:)


--
oldLearner57