Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [appNewFilepath]) Is Nothing Then
With Application
.EnableEvents = False
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With
Cells.Replace What:= _
[appOldFilepath], Replacement:= _
[appNewFilepath], LookAt:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
[appOldFilepath] = [appNewFilepath]
With Application
.EnableEvents = True
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
End If
End Sub