title: Change all cells in a column if a word is found
body: <p>I have a worksheet with 6 columns i want to match a word in column E and if it is in any cell in that column then replace the entire column with that word.</p>
  
  <pre><code>Sub Macro8()
      Columns("E:E").Select
      If Columns("E:E").Select = "dog" Then Entire.Columns("E:E").Select = "dog"
  End Sub
  </code></pre>