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