Cell references in formulas with precedent data

[carl.hayes]

All,
I am looking for a formula or macro to do the following

Copy the contents of a cell and then replace any reference to that cell in the rest of the spreadsheet with the contents of the cell.
E.g. cell f3 = a3*25
I want to then in all other cells which reference cell f3 in a formula replace f3 with a3*25

Can anyone help?? Please note that this will be needed for quite a large badly formatted spreadsheet with a large number of formulas contained within it.

 

[njimack]

Something like this...

Sub Replace_formula()
Dim a As String
Dim r As Range
Dim s As String



a = ActiveCell.Address
s = Replace(ActiveCell.Formula, "=", "")

For Each r In ActiveSheet.UsedRange
If r.HasFormula = True Then
    If InStr(1, r.Formula, a, 1) > 0 Then
        r.Formula = Replace(r.Formula, a, s)

    End If
End If
Next r

End Sub