Absolute Cell Reference

Here some code I found on a quick search.

Try the top one. Press Alt + F11 then insert module. Paste in the Sub Absolute code. Close VB editor then select the area then press Alt + F8 then click run Absolute code

Sub Absolute() 
    Dim cell As Range 
    For Each cell In Selection 
    If cell.HasFormula Then 
       cell.Formula = Application.ConvertFormula(cell.Formula, _ 
xlA1, xlA1, xlAbsolute) 
    End If 
    Next 
End Sub

Sub AbsoluteRow() 
    Dim cell As Range 
    For Each cell In Selection 
    If cell.HasFormula Then 
       cell.Formula = Application.ConvertFormula(cell.Formula, _ 
xlA1, xlA1, xlAbsRowRelColumn) 
    End If 
    Next 
End Sub

Sub AbsoluteCol() 
    Dim cell As Range 
    For Each cell In Selection 
    If cell.HasFormula Then 
       cell.Formula = Application.ConvertFormula(cell.Formula, _ 
xlA1, xlA1, xlRelRowAbsColumn) 
    End If 
    Next 
End Sub

Sub Relative() 
    Dim cell As Range 
    For Each cell In Selection 
    If cell.HasFormula Then 
       cell.Formula = Application.ConvertFormula(cell.Formula, _ 
xlA1, xlA1, xlRelative) 
    End If 
    Next 
End Sub

VBA Noob