changing from relative to absolute cell reference in multiple form

J

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.
 
A

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top