Replace i formler (syntax fejl?)

Hej med nedenstående var det meningen, at den skulle tage værdien, oldrowvalue og skifte ud med newrowvalue. Jeg finder fint new og old vædrierne, dette ved jeg for jeg har msgbox'ene inde.
Rækkeværdien er gemt i formler af forskellige slags på design arket, der så henter disse værdier afhængigt af hvilken model der er valgt. Men jeg kan ikke få nedenstående til at virke, det er i Selction.Replace det går galt, men hvad er der galt med syntaxen? Jeg har prøvet med "*" & OldRowValue & "*", men de slettede bare formler og hele svineriet og skrev NewRowValue i alle cellerne. Det var jo ikke lige meningen
Dim OldRowValue, NewRowValue, i As Integer

For i = 4 To 1200
    If Worksheets("Hoved ark").Range("d" & i & "") = Modelnumber Then
        NewRowValue = i
    End If
Next i
OldRowValue = Sheets("Design").Range("B1").Value
Sheets("Design").Activate
Range("C5:C59, F5:F59").Select
Range("C5").Activate
MsgBox OldRowValue
MsgBox NewRowValue
Selection.Replace What:=OldValue, Replacement:=NewRowValue, LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Sheets("Design").Range("B1").Value = NewRowValue