title: How to copy font and interior color from one multi-cell range to another?
body: <p>I have a range with several cells, and I want to copy that range's font colors and interior colors to another range of the same size.  I'm using this code to test:</p>
  
  <pre><code>Sub testColorCopy()
  
  Dim sht As Worksheet
  Dim rng As Range
  Dim rng2 As Range
  
  Set sht = ThisWorkbook.Sheets("Sheet1")
  sht.Range("a1").value = "abc"
  sht.Range("c1").value = "def"
  sht.Range("a1").Font.ColorIndex = 3
  sht.Range("b1").Interior.ColorIndex = 4
  
  Set rng = sht.Range("a1:b1")
  Set rng2 = sht.Range("c1:d1")
  
  rng2.Interior.color = rng.Interior.color
  rng2.Font.color = rng.Font.color
  
  
  End Sub
  </code></pre>
  
  <p>This doesn't copy the correct colors, though; the two destination cells end up black, suggesting that maybe the color values from the source cells were added together?</p>
  
  <p>Iterating through each cell in the range works, but that solution doesn't scale well--I need something that will handle 1,000,000+ cells reasonably quickly.</p>
  
  <p>EDIT: I only want to copy font color and interior color--no other formatting properties.</p>