How about

For i = 1 To 12
Cells(i,"A").Value = dateSerial(Year(Date),i,15)
Next i

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Maggie" wrote in message
...
I am making a spread sheet by month receiving payments on the 15th. How
do I
format the cell to account for a 31 day month vs. a 30 day month.

Thanks.