Replace formula content after specific character in workbook

[Olivv]

I have formulas in multiple worksheets that start with "=GetCtData".

They usually look like these:
=GetCtData(G$1:G$10;$C15:$D15;"#70.123")
=GetCtData(G$3:G$12;$C13:$D17;"#123.456")

I would like the content after the hashtag to be replaced by 0 in all worksheets, so the formulas end up like those:
=GetCtData(G$1:G$10;$C15:$D15;"#0")
=GetCtData(G$3:G$12;$C13:$D17;"#0")

I have not been able to make it work so far. I tried with the Developer mode to record a "Ctrl + H"

Here is the non working code recorded with the Developer mode (for replacing in the ActiveSheet), that does not work when I run the macro:

Sub Macro3()
    Cells.Replace What:=";""#*", Replacement:=";""0"")", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

And ChatGPT is useless on this matter.

Any ideas about how to make it work?

 

[Anonymous1378]

Shouldn't your find and replace be more along these lines?