title: Find and Replace an entire column for every sheet
body: <p>I have tried to find and replace using a VBA for a specific column in every sheet.</p>
  <p>What made me stuck is that I have a letter that should refer to a column but I can't find a way to do it.</p>
  <p>For Example, I have a letter &quot;I&quot; in cell B5 and I want to find and replace an entire &quot;I&quot; column in every sheet. What Should I do?</p>
  <pre><code>Dim sht As Worksheet
  Dim fnd As Variant
  Dim rplc As Variant
  
  Sheets(&quot;Sheet1&quot;).Select
  fnd = Range(&quot;B1&quot;)
  rplc = Range(&quot;B2&quot;)
  
  For Each sht In ActiveWorkbook.Worksheets
    sht.Columns(&quot;I:I&quot;).Replace what:=fnd, Replacement:=rplc, _
      LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
      SearchFormat:=False, ReplaceFormat:=False 
  </code></pre>
  <p>This is a code I got so far
  Thanks</p>