find and replace specific characters

Sub FORMATUSERS()
   ActiveSheet.Name = "user_info"
 
   With Sheets("user_info").UsedRange
    .Replace "(", "",xlpart
    .Replace ")", "-",xlpart
   End With

    with cells(2,42).end(xldown).resize(,19)
      .replace "T",cells(1,42), xlwhole
      .Replace "F", "", xlWhole
   end with

  with columns(1)
     .replace "not used", ""
     .specialcells(4).entirerow.delete
     .specialcells(2).replace  " ", "_"
     .specialcells(2).replace "|", "_"
  end with
End Sub

This worked perfectly.

Thank you forum!

Sub Macro1()


Set rng = ActiveSheet.UsedRange
With rng
    rng.Replace What:="(", Replacement:="", LookAt:=xlPart
    rng.Replace What:=")", Replacement:="", LookAt:=xlPart
 End With
End Sub