Public Sub www()
       Dim a, i&, j&
       a = [a1].CurrentRegion.FormulaR1C1
       For i = 1 To UBound(a)
           For j = 1 To UBound(a, 2)
               If Left(a(i, j), 1) = "=" Then _
                  a(i, j) = Replace(a(i, j), "W:\", "D:\", , 1, vbTextCompare)
           Next
       Next
       ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
       Application.DisplayAlerts = 0
       Application.Calculation = xlCalculationManual
       [a1].CurrentRegion.FormulaR1C1 = a
       ThisWorkbook.Save
       ActiveWorkbook.UpdateLinks = xlUpdateLinksUserSetting' или xlUpdateLinksAlways
       Application.DisplayAlerts = -1
       Application.Calculation = xlCalculationAutomatic
End Sub