This is based on what the posting described. Some liberties were taken with
the predetermined range assignment, but those can be adjusted as needed.
Also, when the file name is entered for saving, they should not include the
file extension (.xls) since that will be automatically added during the
saveas execution.

Sub workstuff()
Dim sh As Worksheet, fName As String
Set sh = Workbooks("EWR blank.xls").Sheets("Sheet1")
fName = InputBox("Enter a File Name", "FILE NAME")
Range("a2") = InputBox("Enter a Work Order Number", "WO NUMBER")
Range("b2") = InputBox("Enter the Foreman's Name", "FOREMAN NAME")
Range("c2") = InputBox("Enter the Date Performed", "DATE PERFORMED")
Range("d2") = InputBox("Enter the Time Started", "START TIME")
Range("e2") = InputBox("Enter the Time Finished", "FINISH TIME")
Range("f2") = InputBox("Enter the EWR Number", "EWR NUMBER")
ActiveWorkbook.SaveAs Filename:=fName & ".xls"
End Sub



"Marc" wrote in message
...
I want to create a button to saveas the current sheet.

when the user a enters a file name it is saved, then the template file (ie
EWR blank.xls) opens and asks the user questions that will go in pre
determined cells.

example.

work order #
Forman
date
work start
work finish
EWR#

I want these questions asked when the sheet is opened.