Macro to Replace f with an E

[howard]

i have a macro to replace the F after the ! with an E in a linked formula but cannot get macro to work



[code[ ='Statement of Changes in Equity'!F9 [/code]

 Sub Replacecellnumber()


With Sheets("IXBRL Equity")
 .Range("B12:B16").Replace What:="F", Replacement:="E", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
   End With
   
End Sub

It would be appreciated if someone could amend my code

 

[Crystalyzer]

 Sub Replacecellnumber()
    Dim oldFmla As String
    Dim c As Range
    Dim r As Range
    
    With Sheets("IXBRL Equity")
        Set r = .Range("B12:B16")
        
        For Each c In r
            oldFmla = c.Formula
            c.Formula = Replace(oldFmla, "!F", "!E")
        Next c
   End With
End Sub

 

[howard]

Many Thanks for the help. Code works perfectly

 

[Crystalyzer]

My pleasure!