naming sheets

[Guest]

is there a way to name sheets with a date using a macro?

 

[Jim Cone]

Worksheets(1).Name = Format$(Date, "mmddyy")
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)


in message
is there a way to name sheets with a date using a macro?

 

[Guest]

Something like:

Sub dateit()
ActiveSheet.Name = Format(Date, "dd_mm_yyyy")
End Sub


change the format to suit your needs

 

[Guest]

I have this code to add asheet with a2 as the date is it possible to do it
this way

Sub AddNewSheet()
Dim SheetName As String
SheetName = Range("A2")
Sheets(5).copy After:=Sheets(Sheets.Count)
On Error GoTo ErrHandler:
ActiveSheet.Name = SheetName
Exit Sub
ErrHandler:
MsgBox SheetName & " is not a valid sheet name or is already used."
End Sub

 

[Guest]

Your approach can be made to work. However, as you pointed out in the code,
you need to do an error check in case Range("A2").Value is not a legal
sheetname or has aleady been used

 

[Guest]

so how would we get it to work?

thank you

Your approach can be made to work. However, as you pointed out in the code,
you need to do an error check in case Range("A2").Value is not a legal
sheetname or has aleady been used