Or maybe .savecopyas

Then the activeworkbook won't change names or locations.



Joel wrote:

Use a second Saveas statement with a dfferent filename.

"J.W. Aldridge" wrote:

I have a workbook on a shared drive. I have a macro that tells it to
save a copy in a certain folder on my desktop. Is it possible to save
a copy in other locations (ie other peoples desktops) if I have their
directory?

If so, how do I add an additional directory....? (use commas after
each, or some special character to string them?)


Sub Macro3()


'
ChDir "C:\Documents and Settings\JWALD\Desktop\attendance rosters"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\JWALD\Desktop\attendance rosters
\Book200.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub



--

Dave Peterson