title: Excel macro to convert HTML entities to text
body: <p>I have a huge Excel file that contains the result of an online survey.  The person who built the survey messed up the formatting in several respects, and the mess-up I need to take care of first is converting HTML entities to regular text.</p>
  
  <p>From what I can see only two HTML entities are used, <code>&amp;#44;</code> and <code>&amp;quot;</code> but the document is over 12,000 rows so I cannot be sure there are no other HTML entities used... and if other HTML entities are used I want them converted to text as well.</p>
  
  <p>I have successfully made a macro to convert the two HTML entities I mentioned into text, but I don't know how to make the macro execute on the entire file (i.e. I have to hold down on the macro hot key to make it execute... and it is taking forever).</p>
  
  <p>If there was a macro already available to do what I want that would be great because I could also use a modified version of it for my next task of arranging all the columns and rows in the proper order.</p>
  
  <p><strong>UPDATE:</strong></p>
  
  <p>This is the version of my macro that searches for <code>&amp;#44;</code>.  It works, I just have to hold down on the hot key which takes forever.  If I could make this run on the entire Excel file that would be great, and then I can just adjust the macro for each HTML entity until I have eliminated them all.</p>
  
  <pre><code>Sub Macro2()
  '
  ' HTML_Converter Macro
  '
  
  '
      Cells.Find(What:="&amp;#44;", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
          :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
          False, SearchFormat:=False).Activate
      ActiveCell.Replace What:="&amp;#44;", Replacement:=",", LookAt:=xlPart, _
          SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
          ReplaceFormat:=False
      Cells.Find(What:="&amp;#44;", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
          :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
          False, SearchFormat:=False).Activate
  End Sub
  </code></pre>