Inserting date as the name of a new worksheet

[protector]

Hi there
I have an Excel Work book that contains various order forms. I have macros that create new work sheets copying the original Order forms depending on which is run. What I want to do, I would like to change the name of a newly created worksheet to the date the work sheet was created. Is this possible? I have got a variable which holds the date but can't figure out how to insert it in the work sheet name
Hope someone can help

Craig

 

[protector]

Hi people
Have sorted this problem out through trial and error. the code I ended up using is below

Sub Create_New_Orderform()
'
' Create_New_Orderform Macro
' Creates new Order form
'
' Keyboard Shortcut: Ctrl+n
'
'Range("A19&quot.Select
'Selection.Copy
todaysDate = Format(Date, "dd.mm.yy&quot 'get date

Sheets("Sample order form&quot.Select 'copy order sheet header
Range("A19&quot.Select
Selection.Copy

Set NewSheet = Worksheets.Add 'create new worksheet
NewSheet.Name = todaysDate 'change name of new worksheet
ActiveSheet.Paste 'paste copied header
Columns("A:A&quot.ColumnWidth = 14 'change column widths
Columns("B:B&quot.ColumnWidth = 40
Columns("C:C&quot.ColumnWidth = 10
Columns("D&quot.ColumnWidth = 15
End Sub

Thanks

 

[rmikesmith]

Protector,

Congratulations on working out the answer; always satisfying! I want to suggest a way to simplify your code. The following assumes your objective is to create a duplicate of the order form worksheet:

Sub Create_New_Orderform()
Dim todaysDate As Variant

    Worksheets("Sample Order Form").Copy After:=Sheets(ThisWorkbook.Sheets.Count)
    todaysDate = Format(Date, "dd.mm.yy")
    ActiveSheet.Name = todaysDate
End Sub

Regards,
M. Smith