Absolutes in Formulas
 

Is there a faster way to change a bunch of formulas to have absolute values,
instead of going into each one and doing the F4?

~Steph

Absolutes in Formulas
 

Steph,

Select the cells with formulas, and run the macro below.

HTH,
Bernie
MS Excel MVP


Sub ConvertToAbsoluteReferences()
Dim myCell As Range
Dim storedCalc As Variant
With Application
storedCalc = .Calculation
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
For Each myCell In Intersect(Selection, Selection.SpecialCells(xlCellTypeFormulas))
myCell.Formula = Application.ConvertFormula( _
myCell.Formula, xlA1, xlA1, xlAbsolute)
Next myCell
.ScreenUpdating = True
.EnableEvents = True
.Calculation = storedCalc
End With
End Sub


"steph44haf" wrote in message
...
Is there a faster way to change a bunch of formulas to have absolute values,
instead of going into each one and doing the F4?

~Steph