Copie el color del tema de Excel en un nuevo libro de trabajo
Quiero hacer una macro que copie dos hojas en un nuevo libro de trabajo. Pero el color del tema en el nuevo libro creado es diferente.
Sub Export_File()
Dim Wb3 As Workbook
Dim strSaveName As String
strSaveName = Worksheets("Communication").Range("a2").Value
Set Wb3 = ThisWorkbook
'copy sheets to new workbook
Sheets(Array("Auswertung", "Communication")).Copy
ActiveWorkbook.SaveAs strSaveName
Workbooks(Wb3).Colors = Workbooks(strSaveName).Colors
End Sub
Esta línea no me funciona:
Workbooks(Wb4).Colors = Workbooks(strSaveName).Colors
Creo que tiene algo que ver con SetWb4 = ThisWorkbook Necesitas ayuda...
Saludos
