title: VBA Macro not running
body: <p>I created the following macro in VBA but when I call it nothing happens. Any ideas why this might not work?</p>
  
  <pre><code>Sub RemoveWords(DeleteFromCol As Range, FindCol As Range)
  
    Dim words As New Collection
    Dim r As Range
    Dim word As Variant
  
    For Each r In FindCol
      words.Add (r.Value2)
    Next r
  
    For Each r In DeleteFromCol
      For Each word In words
        r.Value2 = Replace(r.Value2, word, "")
      Next word
    Next r
  
  End Sub
  
  Sub Remove()
  
  RemoveWords Range("A1:A233"), Range("B1:B5")
  
  End Sub
  </code></pre>