Hi Huom

hopefully, i've understood what you want - here's some code that will create
a sheet for each day of the current month .. and number them from 1 to
whatever the last day of the month is ...
----
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))
Worksheets.Add Befo=Worksheets(Worksheets.Count)
ActiveSheet.Name = i
Next
End If
End Sub
----

--
Cheers
JulieD
check out www.hcts.net.au/tipsandtricks.htm
....well i'm working on it anyway
"Houm" wrote in message
...

I got a worksheet that include the current Month, date ,
weekday and year. How do I create the macro to run that
create the new worksheets accordingly to the days of the
current months? Examples there's 30 days of the month of
april. It will generated and create 30 worksheets?