'vba code to change all cells to absolute references

i have this vba code that i thought would replace each formula so that the cell is absolute (ie $f$12 instead of f12). Does anyone have any recommendations to my code? I appear to get '#VALUES' for most of the cells.

Sub Absolute()
    Dim cl As Range    
    For Each cl In ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas)              
        cl.Formula = Application.ConvertFormula(cl.Formula, xlA1, xlA1, True)
    Next
End Sub


Sources

This article follows the attribution requirements of Stack Overflow and is licensed under CC BY-SA 3.0.

Source: Stack Overflow

Solution Source