find and replace specific characters

This replace only seems to work when it mataches an entire cell value, but i simply want to replace specific characters, like ', or ) or (, located withing cells, anywhere on the sheet, it doesn't replace.

    Set rng = ActiveSheet.UsedRange
    rng.Replace what:="(", replacement:=""
    rng.Replace what:=")", replacement:="-"

Any ideas?

Thank you... this is causing everything in those cells to be removed.

If it makes a difference, there's a lot going on in this macro... here's the whole thing:

Sub FORMATUSERS()

ActiveSheet.Name = "user_info"
 
   With Sheets(1).UsedRange
    .Replace "*(*", ""
    .Replace "*)*", "-"
   End With

For c = 42 To 61
    Range(Cells(2, c), Cells(2, c).End(xlDown)).Replace "T", Cells(1, c), xlWhole
    Range(Cells(2, c), Cells(2, c).End(xlDown)).Replace "F", "", xlWhole
Next c

'Find last column with data in Row 1
    lastCol = Cells(1, Columns.Count).End(xlToLeft).Column
'Loop through columns, starting at the last one
    For delCol = lastCol To 1 Step -1
'Delete columns with not_used in Row 1
    If Cells(1, delCol) = "not_used" Then _
    Cells(1, delCol).EntireColumn.Delete
Next

Dim Cell As Range
Application.ScreenUpdating = False

    For Each Cell In Range("1:1").SpecialCells(xlConstants)
        Cell = Replace(Cell, " ", "_")
        Cell = Replace(Cell, "|", "_")
    Next Cell
    
End Sub

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