Mover a nuevo libro y nombrarlo

[GATO]

Hola amigos:
Como hago para mover una hoja a un nuevo libro y que coja el nombre de la celda A1
Adjunto una muestra de lo que pretendo hacer.
Abrazos i felicidad para todos.
GATO.

 

[Javier_Diaz]

Hola Gato,

Prueba con este, espero que sea lo que estabas buscando. Pruebalo y me cuentas.

Sub guardar()

Dim Nombre_Libro, ruta As String

Nombre_Libro = ActiveWorkbook.Name
Nombre_Nuevo =...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[GATO]

Hola Javier_Diaz
Primero, agradezco tu interes.
Creo que me va a servir bien, tengo que probarlo dentro de un trabajo que estoy realizando, pero parece que que me va ha funcionar.
Repito...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Javier_Diaz]

Con gusto, saludo y lo mismo te deseo.