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