title: Copy Excel theme color in a new workbook
body: <p>I want to make a macro that copies two sheets in a new workbook.
  But the theme color in the new created workbook is different.</p>
  <pre><code>Sub Export_File()
  Dim Wb3 As Workbook
  Dim strSaveName As String
  
  strSaveName = Worksheets(&quot;Communication&quot;).Range(&quot;a2&quot;).Value
  Set Wb3 = ThisWorkbook
   
  'copy sheets to new workbook
  Sheets(Array(&quot;Auswertung&quot;, &quot;Communication&quot;)).Copy
  ActiveWorkbook.SaveAs strSaveName
  
  Workbooks(Wb3).Colors = Workbooks(strSaveName).Colors
  
  End Sub
  </code></pre>
  <p>This line does not work for me:</p>
  <pre><code>Workbooks(Wb4).Colors = Workbooks(strSaveName).Colors
  </code></pre>
  <p>I think it has something to do with Set <em>Wb4 = ThisWorkbook</em> Need help...</p>
  <p>Greetings</p>
  <p><a href="https://i.stack.imgur.com/vmG4I.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/vmG4I.png" alt="enter image description here" /></a></p>