Zellinhalt über Replace in Formel überführen

Sub Zellinhalt_ergaenzen()
For Each Cell In Selection
Cell.Replace What:=Cell, Replacement:=Cell & "2008"
Next
End Sub

Was ich nun aber erreichen möchte ist, daß der Zellwert Bestandteil einer simplen Formel wird. Aber mit
Replacement:="=Cell*1,3" passiert nichts. Wenn der Zellinhalt eine 1 ist, dann soll als Formel dann =1*1,3 drin stehen. Als Ergebnis wird 1,3 ausgewiesen. Das geht auch mit Hilfe der Kopieren/ Multiplizieren Funktion, aber dann sehe ich nicht mehr, daß der Ursprungswert eine 1 war. Deswegen über Replace als Formel.
Woran liegt das? Oder ist Replacement die falsch Funktion?
Vielen Dank für Eure Hinweise.
Grüße, Andreas Hanisch