Celler vil ikke "genberegne" efter kørsel af Søg/Erstat i VBA

Hej,

Jeg har "lavet" en kode hvor jeg kører en Søg/Erstat på nogle celler, og har i den forbindelse 2 spørgsmål:

1) Kan man indsætte en Range så den kun kører Søg/Erstat på celler i kolonne G startende fra række 51?

2) Når jeg har kørt scriptet retter den fint mine celler fra "may" til "05" og "oct" til "10". Problemet opstår når scriptet har kørt og der er nogle formler i arket der skal beregne nogle tal ud fra disse datoceller jeg har rettet i. Men den opdaterer kun beregningscellerne hvis jeg trykker "Enter" i selve cellen. Jeg har tjekket om genberegning er slået til i Excel og det er det. For nemhedens skyld har jeg lagt et link til mit problem i en lettere redigeret udgave.
 
https://www.dropbox.com/s/nvcasqjojj1dyuo/SogErstat.xltm?dl=0

Herunder min kode i VBA, denne findes også i arket.

Sub Tester1()

Dim sht As Worksheet
Dim fndList As Variant
Dim rplcList As Variant
Dim x As Long

fndList = Array("may", "oct")
rplcList = Array("05", "10")

'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