Macro

[AvP]

Que tal, espero alguien me pudiera ayudar con lo siguiente:
He creado una macro para que me guarde un archivo de excel en la ubicacion actual y tambien me crea una copia en otro lugar.
Lo que no se es como hacer para que la copia se guarde con el mismo nombre del archivo original sin tener que estar escribiendolo.
pongo el codigo:

Sub GuardarAntesCerrar()
ActiveWorkbook.Save
ActiveWorkbook.SaveCopyAs "ruta y nombre de archivo copia"
End Sub

De antemano gracias.