changing from relative to absolute cell reference in multiple form

[JAaron]

Is there a way to change relative cell refernces in multiple formulas from
relative to absolute all at the same time, rather than highlighting refernce
and hitting F4 and changing them one at a time. I have to change several
hundred formula references from relative to absolute.

 

[Ardus Petus]

Sub AbsFormula()
Dim rcell As Range
For Each rcell In ActiveSheet.UsedRange.SpecialCells(xlFormulas)
rcell.Formula = Application.ConvertFormula( _
rcell.Formula, xlA1, xlA1, xlAbsolute)
Next rcell
End Sub

HTH