title: loop through all cells in all sheets in workbook, change format if red
body: <p>I'm trying to change all red text to black in all cells for all sheets of an excel workbook. I'm using the following:</p>
  
  <pre><code>Sub RedToBlack()
  Dim Current As Worksheet
  For Each Current In Worksheets
  For Each cell In Current
      If cell.Font.ColorIndex = 3 Then
          cell.Font.ColorIndex = 0
      End If
    Next
  Next
  End Sub
  </code></pre>
  
  <p>I know this is wrong, but wanted to give a sense of what I'm trying to do. Can anyone offer advice? Thanks for your help, I'm very new to this.</p>