Indsat formel via VBA virker ikke

Jeg har en VBA-kode der laver søg/erstat i mit regneark
ActiveSheet.Cells.Replace What:="$I01S", Replacement:="=HVIS(Data!D5<>"""",Data!D5,"""")"
Det resulterer i at jeg har en celle hvori der står en formel:
  =hvis(Data!D5<>"";Data!D5;"")
Og en fejl #NAVN?
jeg stiller mig i cellen trykker F2 og så enter uden at rette noget. Nu retter formlen sig til:
  =HVIS(Data!D5<>"";Data!D5;"")
Altså retter =hvis  sig til  =HVIS

Hvordan får jeg min formel til at virke 1.gang?