Add Date formula to Macro

[Firecop1348]

Excel 03
I have a templet workorder that I copy and use every day. In cell "e6" I have the formula =today() so it puts todays date in all my new workorders I make. (laugh now) You all know whats happening and I didnt catch it until today. YES, Every time I open my workbook all my sheets change the date to todays date. YOU= Me= Well I took out the formula and tried adding it to my macro but keep coming up with a compile error : sub or function not defined. Could some one please help me in adding =today() to cell "E6 in the following Macro Notice I added it but keep getting errors and tried it in many different ways.

Sub NewWO()
Sheets("work order").Copy After:=Sheets("work order")
With ActiveSheet
    .Name = InputBox("Enter sheet name")
    .Range("E5").Value = .Name
    .Range("E6").Value = TODAY()     <---- added
    Range("b9").Select
End With
End Sub

thank you, I really try not to abuse the forum and work things out with books but some thing just need experince.

 

[Marcelo Branco]

Maybe

.Range("E6").Value = Date

HTH

M.

 

[Firecop1348]

that worked. Thank you, Im just wondering why it would not work with the =today.

Thank you again.

 

[Dazzawm]

that worked. Thank you, Im just wondering why it would not work with the =today.

Thank you again.

I am quite new to VBA etc, but I have found that some formula functions wont work in VBA and have different names.

 

[Marcelo Branco]

that worked. Thank you, Im just wondering why it would not work with the =today.

Thank you again.

You are welcome and tks for your feedback.

Today() is a worksheet function. The corresponding in VBA is Date.

M.