Making all selected cell references in formulas absolute

[jkeller]

I spend a lot of my time creating formulas in an excel sheet that total multiple other cells throughout the sheet. I then have to copy those formulas around the sheet. This leaves me spending a lot of time going through a range of cells and selecting all of the cell references and hitting F4. I am hoping to find a way to select a group of cells that have formulas in them and add the $ in to all of the cell references in the selected cells at once. Is this possible in any way?

 

[Joe4]

Try this:

Sub MyConvertFormulas()

    Dim cell As Range
    
    For Each cell In Selection
        cell.Formula = Application.ConvertFormula(cell.Formula, xlA1, xlA1, 1)
    Next cell
    
End Sub

 

[iggydarsa]

this might help