Looping code never ends

Hi All!

I am using this replace code to reset some formulas in my workbook. The problem is it replaces "=" with "=" (by design, I want it this way) and thus it goes on forever till I stop it with ESC.

Is there a way to adapt it to go through all the sheets in the workbook once and be done?

Thanks!

Sub FindReplaceAll()
'PURPOSE: Find & Replace text/values throughout entire workbook

Dim sht As Worksheet
Dim fnd As Variant
Dim rplc As Variant

fnd = "="
rplc = "="

For Each sht In ActiveWorkbook.Worksheets
  sht.Cells.Replace what:=fnd, Replacement:=rplc, _
    LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
    SearchFormat:=False, ReplaceFormat:=False
Next sht

End Sub

No, I understand that that is strange.

I have other code running on this workbook and many cells turn to #Ref or VALUE. Replacing "=" with "=" in the whole workbook resets all the formulas and fixes everything. the code works it just doesn't ever stop because it goes back to the beginning and finds more"=".

Quote from rory

What you describe is exactly what your code does. It does not loop infinitely, it's probably just very slow.

Why exactly do you need to do this?

See above for reasoning.

It's definitely looping I can see it going through my first sheet multiple times about 2 minutes apart and i have left it on for 10 min.

Anyway to have the code go through each sheet in the wb only once?