Note: Before you run this macro, ensure you have selected the cells, whose reference you want to convert
Sub Relative_to_Absolute()
Dim fmlaCells As Range
On Error Resume Next
Set fmlaCells = Selection
fmlaCells.Formula = Application.ConvertFormula _
(fmlaCells.Formula, xlA1, xlA1, xlAbsolute)
End Sub