title: Flashing cells in VBA
body: <p>I have got a bit of code where when a cell is of a certain value it changes its interior to red and its font to white. what i want to do is to make the colour of the text alternate between white and red every second as long as the cells interior is red (once it turns red it will remain red).
  i want the user to have the impression that the cell is actually flashing.</p>
  
  <p>i wrote this code:</p>
  
  <pre><code>For r = 6 To 1000
      With .Cells(r, 6)
          While .Interior.Color = RGB(237, 67, 55)
              .Font.Color = RGB(237, 67, 55)
               Application.Wait (Now + TimeValue("0:00:01"))
              .Font.Color = vbWhite
          Wend
      End With
  Next r
  </code></pre>
  
  <p>excel just makes the first cell that has red interior "flash" ones and then crashes. the red cells are not in consecutive order.</p>