title: Replace the Cell Value throughout the Entire Workbook
body: <p>I am using  <code>FndRplce()</code> that code which replaces <code>fnd = &quot;Ilya Malikzada&quot;</code> with <code>rplc = &quot;Arham&quot;</code> throughout the entire workbook.</p>
  <p>But how to create such a code which works like: When i change any name from the below attached picture that effect should apply on entire workbook.</p>
  <p><strong>For example</strong> <code>&quot;Ilya Malikzada&quot;</code> <code>A2</code> has this first name so when i write on cell <code>A2</code> <code>Arham</code> then wherever is <code>&quot;Ilya Malikzada&quot;</code> on entire workbook should replace with <code>Arham</code>.</p>
  <p><a href="https://i.stack.imgur.com/doBwE.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/doBwE.png" alt="enter image description here" /></a></p>
  <p>your help will be much appreciated. Thanks</p>
  <pre><code>Sub FndRplce()
  
  Dim sht As Worksheet
  Dim fnd As Variant
  Dim rplc As Variant
  Dim ReplaceCount As Long
  
  fnd = &quot;Ilya Malikzada&quot;
  rplc = &quot;Arham&quot;
  
  For Each sht In ActiveWorkbook.Worksheets
  
    ReplaceCount = ReplaceCount + Application.WorksheetFunction.CountIf(sht.Cells, &quot;*&quot; &amp; fnd &amp; &quot;*&quot;)
  
    sht.Cells.Replace what:=fnd, Replacement:=rplc, _
      LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
      SearchFormat:=False, ReplaceFormat:=False
      
  Next sht
  
  End Sub
  </code></pre>