Claro que se puede, utiliza la grabadora de Macros, puedes guiarte con este ejemplo:
''Cuando es la primera ves que se graba
ChDir "Dirección"
ActiveWorkbook.SaveAs Filename:= _
"DirecciíonNombreArchivo.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
''Cuando ya se ha grabado el libro
ActiveWorkbook.Save
''y si se desea otra copia
ActiveWorkbook.SaveAs Filename:= _
"DirecciónNombreArchivo.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Salu2