find and replace specific characters

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