Copiar Hojas con macros en un libro que varia
Y necesito resolverlo con una macro:
Necesito copiar una hoja de un libro (origen) a otro libro (Destino), con las siguientes condiciones
1) El libro origen tiene que ser elegido (osea utilizando este codigo Workbooks.Open Filename:=Application.GetOpenFilename)
2) La hoja a copiar del libro de origen es simbre la misma, es decir una hoja con un nombre especifico ("PROCESO")
3) La hoja copiada debe de ser insertada en un libro destino (que obviamente es el libro activo, o sea, donde voy a ejecutar la macro y no siempre es el mismo libro, cada mes cambia de nombre)
4) La hoja copiada debe de ser insertada con el formato original pero solo valores (que no me copie fórmula solo los valores)
5) Que el libro origen sea cerrado no así el libro destino
Agradecería mucho una respuesta o una orientación para hacerlo, hata el momento he hecho lo siguiente, pero no he logrado que haga lo que quiero.
Sub COPIAR_HOJA1()
Application.ScreenUpdating = False
If MsgBox("Desea Importar Archivo", vbYesNo, "Pregunta") = vbYes Then
Workbooks.Open Filename:=Application.GetOpenFilename 'Este Macro es para elegir la el libro Origen de datos'
Sheets("PROCESO").Copy After:=thisWorkbooks.Sheets(69)
Application.DisplayAlerts = False
ActiveWindow.Close
Else
'Seleccionó NO, no haga nada
End If
Application.ScreenUpdating = True
End Sub