Copie a cor do tema do Excel em uma nova pasta de trabalho
Quero fazer uma macro que copie duas folhas em uma nova pasta de trabalho. Mas a cor do tema na nova pasta de trabalho criada é 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 linha não funciona para mim:
Workbooks(Wb4).Colors = Workbooks(strSaveName).Colors
Eu acho que tem algo a ver com SetWb4 = ThisWorkbook Preciso de ajuda...
saudações
