Crear macro para guardar un archivo de excel

Hola:
No ha quedado muy en claro qué libro se guardará con fecha y hora pero te dejo algunas  instrucciones. Cualquier duda me volvés a escribir.
nbre= Now    'guarda fecha y hora en variable
Activeworkbook.SaveCopy as ruta & "\" & nbre & ".xls"    'guarda copia del libro  (1)
ActiveWorkbook.Save As ruta & "\ & nbre & ".xls"            'guarda el libro actual (2)

La instrucción 1 hace 1 copia del libro actual, pero te seguis quedando en el libro activo (libro1)
La 2da instrucción te guarda el libro actual con otro nombre y pasa a ser el libro activo. Tendrás volverte al libro1, o activarlo con:
Workbooks("Libro1.xls").Activate

Estos son solo ejemplos, espero te sirvan para lo que necesitas, o me volvés a escribir.

Saludos
Elsa

http://es.geocities.com/lacibelesdepunilla/macros

Entonces es la 1er instrucción.
Entrá al Editor (con Alt y F11 juntas), insertá un módulo y allí escribí esta rutina:
Sub guardando()
nbre = format(Now, "dd-mm-yy hh mm ss")
ruta = ThisWorkbook.Path
ActiveWorkbook.SaveCopyAs ruta & "\" & nbre & ".xls"
End Sub

Probalo y comentame si esto es lo que necesitas.
Podés reemplazar la ruta del libro activo por otra indicándola asi:
ruta = "C:\Documents & Sett\Documentos"
No coloqué separadores en la hora ( no se aceptan los 2 ptos.), lo dejo a tu criterio.

Saludos
Elsa

http://galeon.com/aplicaexcel

¿Porqué no preguntan todo desde un principio????????????????????????????
La ruta se puede 'armar' como una cadena:
ruta = "C:\Documents and Settings\" & usuario & "\Desktop" ....
donde usuario será un nombre a solicitar x inputbox, o tomado desde el menu herramientas-Opciones, o valor de una celda, etc .... no me lo aclarás.

Saludos
Elsa
http://galeon.com/aplicaexcel

Bien, entonces necesitas otra variable definida así:
usuario = application.username
y luego la variable ruta quedaría como te lo indiqué:
ruta = "C:\Documents and Settings\" & usuario & "\Desktop"

Saludos
Elsa

Tus mejores opciones en manuales Excel desde:
http://galeon.com/aplicaexcel/manuales.htm