See here update
Option Explicit
Sub UpdateFormulas()
Dim WsName As String
Dim WkStg As String, WkFor As String
Dim Rg As Range
Dim WSDic1 As Object
Set WSDic1 = CreateObject("Scripting.Dictionary")
Dim WSDic2 As Object
Set WSDic2 = CreateObject("Scripting.Dictionary")
Dim WS As Worksheet
Dim K
Dim WkRg As Range
Const WsNameAdd As String = "F3"
For Each WS In Sheets
If (WS.Name <> ActiveSheet.Name) Then _
WSDic1.Item(WS.Name & "!") = Empty
WSDic2.Item("'" & WS.Name & "'" & "!") = Empty
Next
WsName = Range(WsNameAdd)
WkStg = "'" & WsName & "'" & "!"
Set WkRg = Union(Range("A6:G200"), Range("K6:ZZ200")) ' ADJUST HERE THE RANGE
For Each Rg In WkRg
If (Rg.HasFormula) Then
WkFor = Rg.Formula
For Each K In WSDic1.keys
WkFor = Replace(WkFor, K, WkStg)
Rg.Formula = WkFor
Next
For Each K In WSDic2.keys
WkFor = Replace(WkFor, K, WkStg)
Rg.Formula = WkFor
Next
End If
Next Rg
MsgBox (" Job Done ")
End Sub
Bookmarks