Excel - Cambiar archivo fuente para copiar y pegar

Hola que tal

gracias de ante mano por la respuesta

Tengo un macro para copiar y pegar una hoja de un archivo a otro en excel

Sub CopiarenOtroLibro()
Workbooks("xxxx1").Worksheets("hoja 1").Copy After:=Workbooks("XXXXX2").Sheets("hoja 1")
End Sub

pero tengo el archivo se va actualizando con otro nombre cada semana

HAY ALGUNA POSIBILIDAD DE PODER SELECCIONAR EL ARCHIVO FUENTE DESDE EL EXPLORADOR

ES DECIR QUE PUEDA SELECCIONAR UN ARCHIVO DIFERENTE PARA SELECCIONAR LA MISMA HORA Y PASARLO AL LIBRO 2

LAS HOJAS SIEMPRE SON LAS MISMAS PERO PERO EL ARCHIVO LIBRO 1 SIEMPRE VA A CAMBIAR DE NOMBRE

MUCHAS GRACIAS

Dim book As Variant

book = Application.GetOpenFilename("Archivos de Excel (*.xlsx), *.xlsx", MultiSelect:=False)

(fijate en la ayuda de VBA)