```
Option Explicit
Sub formulas_absolute()
'Erik Van Geit
'051119
'change formulas to absolute
Dim Cell As Range
Dim RNG As Range
Dim AppSetCalc As Integer
Dim AppSetEnEv As Integer
On Error Resume Next
Set RNG = Selection.SpecialCells(xlCellTypeFormulas)
On Error GoTo 0
If RNG Is Nothing Then
MsgBox "No formulas found in selection", 48, "TITLE"
Exit Sub
End If
With Application
.ScreenUpdating = False
AppSetCalc = .Calculation
.Calculation = xlCalculationManual
AppSetEnEv = .EnableEvents
.EnableEvents = False
End With
For Each Cell In RNG
Cell.Formula = Application.ConvertFormula(Cell.Formula, 1, 1, xlAbsolute)
'Cell.Formula = Application.ConvertFormula(Cell.Formula, 1, 1, xlAbsRowRelColumn)
'Cell.Formula = Application.ConvertFormula(Cell.Formula, 1, 1, xlRelRowAbsColumn)
'Cell.Formula = Application.ConvertFormula(Cell.Formula, 1, 1, xlRelative)
Next Cell
With Application
.ScreenUpdating = True
.Calculation = AppSetCalc
.EnableEvents = AppSetEnEv
End With
End Sub
```