check and replace $

Public Sub ToAbsolute()
  Dim Cella As Range
 
  For Each Cella In ActiveCell.SpecialCells(xlCellTypeFormulas, 23)
      If Cella.HasFormula Then
          If Cella.HasArray Then
            Cella.FormulaArray = Application.ConvertFormula( _
              Cella.FormulaArray, _
              FromReferenceStyle:=xlA1, _
              ToReferenceStyle:=xlA1, _
              ToAbsolute:=xlAbsolute)
          Else
            Cella.Formula = Application.ConvertFormula( _
              Cella.Formula, _
              FromReferenceStyle:=xlA1, _
              ToReferenceStyle:=xlA1, _
              ToAbsolute:=xlAbsolute)
          End If
      End If
  Next Cella
 
End Sub