i have a list of phone numbers that are givin with (###)###-####, what i would like to do is get rid of the "(" ")" "-
so far i have

sub changeove
Sheets("tracking").Selec
Range("w4:w100").Selec
ActiveCell.Formula = Replace(ActiveCell.Value, "-", ""
ActiveCell.Formula = Replace(ActiveCell.Value, "(", ""
ActiveCell.Formula = Replace(ActiveCell.Value, ")", ""
Selection.Cop
Range("x4").Selec
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks
:=False, Transpose:=Fals

end su

this only changes the first one though. im not sure on how to get rid of the symbols on all the number