Automate File Naming Function in sequence
 

How would you modify it into this code?

The code works when i select it in the run except

Sub open_New_TEmplate_Dailysummary()
'
' open_New_TEmplate_Dailysummary Macro
' Macro recorded 29/11/2002 by Steven North
'

'
Workbooks.Add Template:= _
"C:\Documents and Settings\steven\Application
Data\Microsoft\Templates\Registration (ZEMD)\Daily Summary Sheet.xlt"
End Sub




*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!