Copiar una hoja a otro archivo excel ( nombre archivo vinculado celda )

Tengo una macro que graba/toma el nombre archivo desde una celda D1, esto funciona ok.

Le pregunta es como puedo copiar los datos de la hoja1 en su totalidad y pasarlos a una nueva hoja en otro libro. ( Texto en D1 varia con cada semana)

Este código no me funcionó, imagino que debo ingresar la celda D1 en la línea en el código

Workbooks("nombre1.xlsx").Worksheets(1).Copy After:=Workbooks("Libro2.xlsx").Sheets(2)