Sheet name - macro

Posted by Mick on December 06, 2001 6:55 AM

G'day
I need to create a macro to create a new sheet each day & then name that sheet as the current day of the month. Any ideas on how to creat such a macro?

Posted by Juan Pablo G. on December 06, 2001 6:57 AM

Try with

Sub AddTodaySheet()
Sheets.Add(After:=Sheets(Sheets.Count)).Name = Format(Date,"dd-mm-yyyy")
End Sub

Juan Pablo G.

Posted by Mick on December 06, 2001 7:07 AM

Works great.

Thanks Juan