Great, thank you Tom

"Tom Ogilvy" skrev:

> 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