Sub ReplaceFormula()
Dim iSh As Worksheet
Dim arrSheets()
Dim iCell As Range
Dim shDic As Object
Dim iKey
On Error Resume Next
Set shDic = CreateObject("Scripting.Dictionary")
'массив имен листов с Исходными данными
arrSheets = Array("Бюджет", "Дебет", "Кредит", "Сальдо", "Бульдо")
'--------------------------------------
For Each iKey In arrSheets: iTemp = shDic.Item(iKey): Next
Application.ScreenUpdating = False
For Each iSh In ThisWorkbook.Worksheets
  If Not shDic.Exists(iSh.Name) Then
    For Each iCell In iSh.UsedRange.SpecialCells(xlCellTypeFormulas)
      For Each iKey In shDic.Keys
        If iCell.Formula Like "*" & iKey & "*" Then
          iCell.Value = iCell.Value
          Exit For
        End If
      Next
    Next
  End If
Next
Application.ScreenUpdating = True
End Sub