changing from relative to absolute cell reference in multiple form

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.

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
--
AP

"JAaron" <JAaron@discussions.microsoft.com> a écrit dans le message de news:
682449C5-40A7-41E5-BA43-BC9EEA6752B5@microsoft.com...
> 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.