hi,
try working something like this in your code.
Sub NameNewSheet()
Dim da As Long
Dim mo As String
Dim yr As Long
da = DatePart("d", Date, dd)
mo = DatePart("m", Date, mm)
yr = DatePart("yyyy", Date, yy)

Sheets.Add
Sheets("Sheet2").Select
Sheets("Sheet2").Name = da & "_" & mo & "_" & yr
End Sub

regards
FSt1

"Cromag_762003" wrote:


Hi everyone...

I was wondering what code I need to use to force excel to rename newly
created worksheets as the current date. ie.(today is 25-May-06,
therefore when I create a new sheet, I want it to name the sheet
25-May-06.)

I know it's a bit silly because I can just name them each day....
however I have one of these for each day of the year and 7 different
workbooks all with the same "naming" scheme.

Any help would be greatly appreciated.


--
Cromag_762003
------------------------------------------------------------------------
Cromag_762003's Profile: http://www.excelforum.com/member.php...o&userid=34810
View this thread: http://www.excelforum.com/showthread...hreadid=545664