title: Using Excel Macros to replace text quickly if the cell is a certain value
body: <p>I have a macro that's met to find all the rows in the N column in an excel spreadsheet with a value of 'Accept', and adjust their value to 'Reject'.</p>
  
  <p>My macro is working, but it works <b>VERY</b> slow, it literally took me over 15 minutes for my macro to run through 20,000+ rows changing the cell value from Accept to Reject, which is way too long for me to expect any customer to wait (20,000 is the high end of how many rows of data I'd expect customers to have).</p>
  
  <p>Below is the code in my macro, I'm wondering if anyone has any ideas how I can make it run faster.</p>
  
  <pre><code>' Select cell N2, *first line of data*.
  Range("N2").Select
  ' Set Do loop to stop when an empty cell is reached.
  Do Until IsEmpty(ActiveCell)
      If ActiveCell.Value = "Accept" Then
          ActiveCell.Value = "Reject"
      End If
      ' Step down 1 row from present location.
      ActiveCell.Offset(1, 0).Select
  Loop
  </code></pre>