Public Sub smfFixLinks()
   Dim Sht As Worksheet
   For Each Sht In Worksheets
     Sht.Cells.Replace _
       What:="'*\RCH_Stock_Market_Functions.xla'!", _
       Replacement:="", _
       LookAt:=xlPart, _
       SearchOrder:=xlByRows, _
       MatchCase:=False, _
       SearchFormat:=False, _
       ReplaceFormat:=False
     Next Sht
   End Sub