Macro to save worksheet as separate file?

[aythieriot]

Hello again,

So I've got my inventory model working functionally (finally...). One last issue remains: The point where this model is used is not the same location where the final output is to be printed out. Therefore, I want my final output page to be sent by itself (not a fully macro-encoded file) as a smaller fine to be printed off at the central office.

Is there a way to save my final output page as a separate file, with a dialogue box where the user can put in today's date to name the order (if not done automatically via =today() somehow?

Thanks,

 

[Sektor]

Sub SaveSheet()
    Sheets("Sheet1").SaveAs Filename:="C:\" & DateValue(Now) & ".xlsx"
End Sub

 

[VoG]

Try like this. Change Output to the name of the sheet

Sub SaveMe()
Sheets("Output").Copy
With ActiveWorkbook
    .SaveAs Filename:=Format(Date, "ddmmyyyy") & ".xls)"
    .Close
End With
End Sub