title: Excel VBA find and replace
body: <p>I have this code and it works fine. Now I need change it and I don't know how do it.</p>
  
  <p>The code searsh in entire wordksheet. I need search in only 1 column</p>
  
  <p>the code search entire cell. I need search left or mid or right side of cell.</p>
  
  <pre><code>Sub ChgInfo() 
  
  Dim WS As Worksheet 
  Dim Search As String 
  Dim Replacement As String 
  Dim Prompt As String 
  Dim Title As String 
  Dim MatchCase As Boolean 
  
  Prompt = "What is the original value you want to replace?" 
  Title = "Search Value Input" 
  Search = InputBox(Prompt, Title) 
  
  Prompt = "What is the replacement value?" 
  Title = "Search Value Input" 
  Replacement = InputBox(Prompt, Title) 
  
  For Each WS In Worksheets 
  WS.Cells.Replace What:=Search, Replacement:=Replacement, _ 
  LookAt:=xlPart, MatchCase:=False 
  Next 
  
  End Sub
  </code></pre>