Sigue las Instrucciones para un botón y ejecutar la macro
1. Abre tu libro de Excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Ahora para crear un botón, puedes hacer lo siguiente:
6. Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
7. Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
8. Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona Asignar macro / Selecciona: guarda_archivo
9. Aceptar.
10. Para ejecutarla dale click a la imagen.
Sub guarda_archivo()
'por.dam
On Error Resume Next
carpeta = Range("A1")
archivo = Range("A2")
MkDir (carpeta)
ActiveWorkbook.SaveAs Filename:=carpeta & archivo, FileFormat:=xlNormal
End Sub
En la macro cambia "A1" por la celda donde vas a poner la carpeta, también cambia "A2" por la celda donde vas a poner el archivo.
Este es un ejemplo de cómo debes tener el nombre de la carpeta:
C:\trabajo\prue2\
Deberás poner una diagonal \ al final, así como se muestra en el ejemplo.
Si ya existe la carpeta ya no la crea.
Si ya existe el archivo, te pregunta si quieres sobreescribir el libro.
Saludos. Dam
Si es lo que necesitas.