Thanks, But now the month Start at May/01/2005 instead
of April/01/2005.

-----Original Message-----
Sub createsheets()
If MsgBox( _
"Are you very very sure you want to do this?",
vbYesNo, _
"Create LOTS of Sheets") = vbYes Then
For i = 1 To Day(DateSerial(Year(Date), _
Month(Date) + 1, 0))
Sheets("Sheet1").Copy Befo=Worksheets _
(Worksheets.Count)
ActiveSheet.Name = i
Range("C1").Value = DateSerial(Year(date), _
Month(Date)+1,i)
Next
End If
End Sub

--
Regards,
Tom Ogilvy


"Hume" wrote in message
...

the following code does not give me the current month
and
date when it creat the new sheet.
On my C1 cell it has the function of =DATE(YEAR(NOW
()),MONTH(NOW()),1). the new creat sheet on C1 cell
start
with 01/01/2005 instead of the current month as
04/01/2005.
Can someone help?

---
Sub createsheets()
If MsgBox("Are you very very sure you want to do
this?", vbYesNo,
"Create LOTS of Sheets") = vbYes Then
For i = 1 To Day(DateSerial(Year(Date), Month
(Date) + 1, 0))
Sheets("Sheet1").Copy Befo=Worksheets
(Worksheets.Count)
ActiveSheet.Name = i
Range("C1").Value = i
Next
End If
End Sub



.