Change all formulas in selection to absolute cell refferance

[MarkCBB]

Hi there,

I am looking for some code to change all the formulas in a selection to absolute cell references: i.e.
before Macro
=Sheet1!a1
after Macro
=sheet1!$a$1

 

[pgc01]

Hi Mark

Try:

Sub ToAbs()
Dim r As Range, rC As Range
 
Set r = Range("A1:C10")
 
For Each rC In r.SpecialCells(xlCellTypeFormulas)
    rC.Formula = Application.ConvertFormula(rC.Formula, xlA1, ToAbsolute:=True)
Next rC
End Sub

 

[MarkCBB]

AWESOME, just what i needed, thank you!