Thread: Changing a range of cells to an absolute reference

I have a spreadsheet with two worksheets in it and one uses cell values from the other. 'Data Entry' is where the data is entered and 'Summary Final' is where the information ends up. I need to be able to change the reference in the 'Summary Final' sheet to Absolute ($). I know I can change one cell at a time by using F4 (I learned that here) but I need to be able to do a large number of cells at one time. I have 15,000 cells to do and doing it 1 cell at a time is not practical.
Thank you in advance for help, I hope I have used the correct terms for this problem as I am not well versed in Excel.

Post the workbook, or an example of the workbook which accurately portrays the formula and cell locations.

mew!

Might take a look at this link and use the code there.
Convert Excel Formulas from Relative to Absolute

Try this:

Sub ChangeRefs()
    Dim vRef        As Variant
    Dim cell        As Range

    vRef = InputBox(Prompt:="Change formulas to?" & vbLf & vbLf & _
                            "1. Absolute all" & vbLf & _
                            "2. Absolute Row / Relative column" & vbLf & _
                            "3. Relative Row / Absolute column" & vbLf & _
                            "4. Relative all")
    
    If vRef = vbNullString Then Exit Sub
    If Not IsNumeric(vRef) Or vRef < 1 Or vRef > 4 Then
        MsgBox "Invalid selection"
        Exit Sub
    End If

    On Error Resume Next
    For Each cell In Intersect(Selection, ActiveSheet.UsedRange).SpecialCells(Type:=xlFormulas)
        cell.Formula = Application.ConvertFormula(cell.Formula, xlA1, xlA1, vRef)
    Next cell
End Sub