Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- CreateObject("WScript.Shell").specialfolders("Desktop")
- ActiveWorkbook.SaveAs Environ$("UserProfile") & "My Documents" & _
- Environ$("UserName") & " - " & Format(Date, "yyyy-mmm-dd") & ".xls"
- ActiveWorkbook.SaveAs Filename:=Environ$("UserProfile") & "My Documents" & _
- Environ$("UserName") & " - " & Format(Date, "yyyy-mmm-dd") & ".xlsm", _
- FileFormat:=xlOpenXMLWorkbookMacroEnabled
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement