try this

Sub setmonths()
Dim sd As Date
Dim ed As Date
sd = InputBox("Enter start date")
ed = InputBox("Enter stop date")
For i = 1 To DateDiff("m", sd, ed) + 1
Cells(1, i) = sd - 30 + (i * 30)
Cells(1, i).NumberFormat = "mmm yy"
Next i
End Sub

--
Don Guillett
SalesAid Software

"Struggling of Essex" wrote in
message ...
I wish to set up a cashflow spread sheet that has a basic data front
sheet.
This basic data would include a commencement date and a completion date
for
the cashflow. Typically these cashflows would be 36 - 60 months long,
therefore requiring the requisit number of columns to be created and
headed
with the date reference; namely January 05, February 05, ect. etc.

Can anyone help?