Macro - save as in 2 different locations

[Legacy 53668]

I would like to save a file with the name being the text located in A1 in two different file locations. I can do the first part of saving as the text in A1, but how can I tell it to save that file to different locations?

 

[shajueasow]

Hi,
Try recording macro to do this and make changes in the code if needed. This was what I got while doing so.

Sub savetwice()
Application.DisplayAlerts = False 'to disable alert messages.
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Shaju\My Documents\Book1todelete).xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
ChDir "C:\Documents and Settings\Shaju\Desktop"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Shaju\Desktop\Book1todelete).xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Application.DisplayAlerts = True 'to enable alert messages
End Sub