Estoy tratando de copear datos (en si formatos de un rango) de un libro a otro, pero en el último paso me sale error de Rango, a pesar de habler declarado anteriormente, alguno me podría indicar en que parte estoy errando, ya llevo tiempo y no logro identificar el error, gracias.
Sub Formatos()
Dim wbFormatos As Workbook
Dim wbPLANTILLA_DE_CARTERA As Workbook
Dim wsRESUMEN_DIRECTOR As Range
Dim wsD_RESUMEN_DIRECTOR As Range
Dim rutaOrigen As String
Dim rutaDestino As String
rutaOrigen = "D:\Formatos.xlsm"
rutaDestino = "D:\PLANTILLA DE CARTERA.xlsm"
Set wbFormatos = Workbooks.Open(Filename:=rutaOrigen, UpdateLinks:=False, ReadOnly:=True)
Set wbPlantillaDeCartera = Workbooks.Open(Filename:=rutaDestino, UpdateLinks:=False, ReadOnly:=False)
'Hojas origen
Set wsRESUMEN_DIRECTOR = wbFormatos.Worksheets("RESUMEN DIRECTOR").Range("A1:AG60")
'Hojas destino
Set wsD_RESUMEN_DIRECTOR = wbPlantillaDeCartera.Worksheets("RESUMEN DIRECTOR").Range("A1:AG60")
wsRESUMEN_DIRECTOR.Copy: Range(wsD_RESUMEN_DIRECTOR).PasteSpecial xlPasteFormats
ThisWorkbook.Save
wbFormatos.Close
End Sub