title: Find and Replace Multiple Lines in Excel
body: <p>I have a document that has a product length | product name | and product price</p>
  
  <p>I have used this code I found online to replace the product price: </p>
  
  <pre><code>Sub Multi_FindReplaceALL_pvc_replace_new()
  'PURPOSE: Find &amp; Replace a list of text/values throughout entire workbook
  'SOURCE: www.TheSpreadsheetGuru.com/the-code-vault
  
  Dim sht As Worksheet
  Dim fndList As Variant
  Dim rplcList As Variant
  Dim x As Long
  
  fndList = Array("2 ft", "PVC", "390")
  rplcList = Array("2 ft", "PVC", "290")
  
  'Loop through each item in Array lists
   For x = LBound(fndList) To UBound(fndList)
  'Loop through each worksheet in ActiveWorkbook
    For Each sht In ActiveWorkbook.Worksheets
      sht.Cells.Replace What:=fndList(x), Replacement:=rplcList(x), _
        LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
        SearchFormat:=False, ReplaceFormat:=False
    Next sht
  
    Next x
  
  End Sub
  </code></pre>
  
  <p>The issue I am having is this VB script is replacing the product name Acrylic's pricing as well.</p>
  
  <p>Any help would be greatly appreciated.  I can also supply any additional information if needed.</p>
  
  <p>Image Link of Doc: <a href="http://prntscr.com/h1votx" rel="nofollow noreferrer">http://prntscr.com/h1votx</a></p>