title: Copy cell background color and paste it to corresponding cell of another sheet
body: <p>I have values on Sheet 1 and I gave the background color using conditional formatting.</p>
  
  <p>I want to copy only the color and paste it to the corresponding cell of  sheet 2 without pasting the value.</p>
  
  <p>Example if sheet 1 cell A1 has red color for specific value, transfer the color to sheet 2 A1.</p>
  
  <p>I use two colors, red and white. Red is for higher value and white is for lower value.</p>
  
  <p><a href="https://i.stack.imgur.com/tKrs4.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/tKrs4.png" alt="enter image description here"></a></p>
  
  <pre><code>Sub copycolor()
      Dim intRow As Integer
      Dim rngCopy As Range
      Dim rngPaste As Range
  
      For intRow = 1 To 20
  
          Set rngCopy = Sheet1.Range("A" &amp; intRow + 0)
          Set rngPaste = Sheet2.Range("b" &amp; intRow)
  
          'Test to see if rows 500+ have a value
          If rngCopy.Value &lt;&gt; "" Then
  
              'Since it has a value, copy the value and color
              rngPaste.Value = rngCopy.Value
              rngPaste.Interior.Color = rngCopy.Interior.Color
  
          End If
      Next intRow
  End Sub
  </code></pre>