Auto saving shared files

[mcmdm50]

I created a macro that opens 4 workbooks (named Qtr 1, Qtr 2, Qtr 3, Qtr 4) from a larger workbook with 8 sheets.
I run code in each book and then I would like to close and save each one but I can't get that part to work. for the people who share the file with me.
I can only figure out how to save it to my desktop but not save to the desktop of others.
Can anyone help?
Thanks,

 

[mrshl9898]

Something like this:

ThisWorkbook.SaveAs CreateObject("WScript.Shell").specialfolders("Desktop") & "\" & ThisWorkbook.Name & ".xlsx"
ThisWorkbook.Close

CreateObject("WScript.Shell").specialfolders("Desktop") should get you the filepath for their desktop.

 

[mcmdm50]

That closed the main workbook after copying the worksheet to a new workbook so the next 3 did not copy.
The new workbook didn't save.
The following code worked with my computer....Is there any modification I can make to this so that it can save to all.
ActiveWorkbook.SaveAs Filename:="C:\Users\Mike\Desktop\Qtr 1.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

 

[mrshl9898]

Sorry, I thought you were a bit more on top of things. It was just a loose example.

Here:

ActiveWorkbook.SaveAs Filename:= CreateObject("WScript.Shell").specialfolders("Desktop") & "\\Qtr 1.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

FYI ThisWorkbook will refer to the book the Macro is in. ActiveWorkbook will refer to whatever book is currently active.

 

[mcmdm50]

No, just learning, but trying to become more proficient.
This worked very well.
Thank you very much for your assistance.