File Save

[billandrew]

Good afternoon

Is there a way to insert the Month Day Year Hour & Minute combined with the "Results" file.

Thanks guys....

Dim wb As Workbook
Dim filename As String
Set wb = Workbooks.Add
ThisWorkbook.Activate
ActiveSheet.Copy before:=wb.Sheets(1)
wb.Activate
filepath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & Application.PathSeparator
wb.SaveAs filepath & Format(Now, "mm dd yy HH:mm") & ".xlsx", FileFormat:=51
 
wb.SaveAs filepath & "Results" & ".xlsx", FileFormat:=51

 

[Mentor82]

Hi,
Try swapping your two wb.save lines with the following one and let me know of that's what you're looking for.

wb.SaveAs filepath & "Results" & cstr(now()) & ".xlsx"

Regards,
Sebastian

 

[billandrew]

Thank you sir, however this errors as well.

 

[billandrew]

Managed to work it out with the below.

Thank You

wb.SaveAs filepath & "Results" & " " & Format(Now, "mm-dd-yy hhmm") & ".xlsx", FileFormat:=51

Also discovered my string variable was incorrectly entered....