Guardar libro en dos sitios diferentes cuando se cierra el libro

Te anexo la macro.

Instrucciones
1. Abre tu hoja de excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona ALt + F11
3. Del lado izquierdo dice: VBAProject, abajo dale doble click a ThisWorkbook
4. Del lado derecho copia la macro

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Archivo = ActiveWorkbook.Name
'wpath = ActiveWorkbook.Path
Ruta1 = "C:\"
Ruta2 = "C:\Documents and Settings\All Users\Escritorio\"
ActiveWorkbook.SaveAs Filename:= _
Ruta1 & Archivo _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.SaveAs Filename:= _
Ruta2 & Archivo _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Dentro de la macro está la Ruta1 y la Ruta2, ahí tienes que poner las rutas o sitios diferentes donde quieres que se guarden las copias 1 y 2

Saludos. Dam

Si es lo que necesitas.