You cannot format or pre-set cells with absolute references.

You can run a macro on your formulas after you have entered them is about all
you get.

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

I have these as option buttons on a UserForm.

Accessed through my cells' right-click menu.

Gord Dibben  MS Excel MVP