check and replace $

Hi, patel45, thanks for your reference, but I want apply to column B & E only [i.e. address(ColumnAbsolute:=False)] not for all and rows, how to do it? thanks

Originally Posted by patel45

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