changing from relative to absolute cell reference in multiple form

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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
 
Back
Top