check and replace $

Originally Posted by alee001

I only change the code [ToAbsolute:=xlAbsolute] to [ToAbsolute:=xlRelRowAbsColumn] for all column, but I have not ideal how to set required column(s)??

Finally, I solved the problem about absolute required column(s) by following code:

Sub ToAbsoluteCol_B&D()
Dim fomlu As Range
Set fomlu = Range("E2:G100")
For Each fomlu In fomlu.SpecialCells(xlCellTypeFormulas)
    fomlu.Formula = Application.Substitute(fomlu.Formula, "B", "$B")
    fomlu.Formula = Application.Substitute(fomlu.Formula, "D", "$D")
Next fomlu
End Sub