title: Copy/Paste Cell with Certain Color VBA
body: <p>Very new to VBA.</p>
  
  <p>On each sheet, I'm trying to copy the cell which fits the RGB profile and paste it in T2 of the same sheet.</p>
  
  <p>Module is running but nothing is happening.</p>
  
  <p>Thanks in advance</p>
  
  <pre><code>    Sub CopyColor()
  
      Dim rCell As Range
  
         For Each rCell In ActiveSheet.UsedRange
            If rCell.Interior.ColorIndex = RGB(112, 173, 71) Then
            rCell.Select
            rCell.Copy
            rCell("T2").PasteSpecial Paste:=xlPasteFormats
  
         End If
       Next rCell
  
      End Sub
  </code></pre>
  
  <p>Update: Oops, I meant to PasteValues. Got it to run on the active sheet, but I need it to go through the whole workbook. Tried this modification and it didn't work:</p>
  
  <pre><code>    Sub CopyColor()
  
      Dim rCell As Range
      Dim wk As Worksheet
  
         For Each wk In ThisWorkbook.Worksheets
  
            For Each rCell In ActiveSheet.UsedRange
               If rCell.Interior.Color = RGB(112, 173, 71) Then
                  rCell.Copy
                  Range("T2").PasteSpecial Paste:=xlPasteValues
                  Application.CutCopyMode = False
               End If
            Next rCell
        Next wk
  
      End Sub
  </code></pre>