Yes.

Here is the full set........................

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

Sub AbsoluteRow()

Dim Cell As Range

For Each Cell In Selection

If Cell.HasFormula Then

Cell.Formula = Application.ConvertFormula _

(Cell.Formula, xlA1, xlA1, xlAbsRowRelColumn)

Next

End Sub

Sub AbsoluteCol()

Dim Cell As Range

For Each Cell In Selection

If Cell.HasFormula Then

Cell.Formula = Application.ConvertFormula _

(Cell.Formula, xlA1, xlA1, xlRelRowAbsColumn)

Next

End Sub

Sub Relative()

Dim Cell As Range

For Each Cell In Selection

If Cell.HasFormula Then

Cell.Formula = Application.ConvertFormula _

(Cell.Formula, xlA1, xlA1, xlRelative)

Next

End Sub

Gord