sub ProcessData()
for each cell in Range("A1:A5000")
s = cell.formula
s1 = Application.ConvertFormula( _
formula:=s, _
fromReferenceStyle:=xlA1, _
toReferenceStyle:=xlA1, _
ToAbsolute:=xlAbsolute)
cell.Formula = s1
Next
End Sub

Change A1:A5000 to the range you want to process.
Test this on a copy of your data and make sure it does what you want.

--
Regards,
Tom Ogilvy


"Johan" wrote:

> I would like to create a macro that changes a formula in a cell to an
> absolute reference. Since I have a list of 5000 rows I want the VBA script to
> choose below cell after having changed the first one. I'm not into VBA so
> please keep answers on a dummy level.
>
> Greatful to answers / Johan