At A Loss: Click Save - Saves To Multiple Locations

Hey guys,

This is my first time posting on the forum but I've been following the posts for quite some time. Im a novice Macro user and took the first step by looking through all of the old posts. Here is what Im trying to do but Im really struggling.

1. When a user clicks the save button or presses the save disk the excel file is saved to two locations. I don't want to use a macro command button as the individuals using the tool will definitely forget.
C:\Users\g068716\Desktop\Drop\Dropbox\Ancaster\
C:\Users\g068716\Desktop\Personal\

2. When it saves it doesn't ask if its ok to overwrite the file. Just overwrite and save.

I've looked through piles of examples and the ones that look promising just dont seem to work. Here is what I have right now.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'All saves should be placed between display alert toggle
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\Users\g068716\Desktop\Drop\Dropbox\Ancaster\Book3.xlsm"
ActiveWorkbook.SaveAs Filename:="C:\Users\g068716\Desktop\Personal\Book3.xlsm"
Application.DisplayAlerts = True
Cancel = True
End Sub

When I select Save from the menu (File -> Save) nothing happens. I'm really at a loss. I know Im not the first person to ask for help with this problem but the other solutions seem to require command buttons or I couldnt figure out.

Thanks in advance. I've really been stuck on this for a while.

Hey Thanks for the quick reply.

The code is very similar to my own except for the first line but I didnt seem to work. I copied the code, pasted in the module of the workbook, saved the file, and tried to File - Save. Nothing happened. No file was created in either location.

Any idea what might be wrong.

Thanks,

THISWORKBOOK module. I must be newer than I thought at this but where would this be located. I've opened the edited. Double clicked on book3.xlsm from Project window. In it are three sheets and a module 1. I placed it in module 1 within book3.xlsm. Is that right?

Yes I got that to work in thisworkbook but when I save (it works) but when I try and close the file. Simply click the small 'x' in the corner it brings up a message window "Do you want to save the changes you made to 'Book3.xlsm'" I can click "Save" an infinite number of times and Im forced to selecting Don't Save. Is there any way to fix that?

Thanks again. I do really appreciate the help

I guess I should provide a bit more clarity. So although its saving in two locations (which works now) the file Im clicking Save on is in a third location. Its simply on the desktop. Im guessing the code isnt saving this file which is why it keeps asking me to save. Endless loop. Anyways I tried to extend the code to include the file on the desktop but it asks to debug.

ActiveWorkbook.SaveCopyAs Filename:="C:\Users\g068716\Desktop\Book3.xlsm"