How to turn an entire column of Absolute References?

[shumba]

Hi

I would like to turn a column of values into absolute references (e.g. $A$10) without having to select each the 1588 values in the column and using the F4 short cut.

Any help will be much appreciated.

Thanks,

Rob.

 

[jolivanes]

Try this

Sub ConvertFormulas()

    Dim sht As Worksheet
    Dim rngCell As Range

    Set sht = ActiveSheet

    Application.Calculation = xlCalculationManual

    For Each rngCell In sht.UsedRange.SpecialCells(xlCellTypeFormulas).Cells
        rngCell.Formula = Application.ConvertFormula(rngCell.Formula, xlA1, , xlAbsolute)
    Next rngCell
    
    Application.Calculation = xlCalculationAutomatic

End Sub

 

[shumba]

Thanks for your help.

Regards,

Rob.