You can use the sub below (from a Gord Dibben's post)
Select the range containing the formulas, eg select D2:D7, then run the sub

Sub Absolute()
Dim Cell As Range
For Each Cell In Selection
If Cell.HasFormula Then
Cell.Formula = Application.ConvertFormula(Cell.Formula, xlA1, xlA1, _
xlAbsolute)
End If
Next
End Sub

--
Max
Singapore
http://savefile.com/projects/236895
Downloads:17,800, Files:359, Subscribers:56
xdemechanik
---
"Ed" wrote in message
...
Is there a formula that can automatically assign the "$" symbol to each
cell in column D to maintain formula integrity as follows:

=$A$2
=$A$3
=$A$4
=$A$5
etc..