Erik,

Got this using the macro recorder and doing a quick edit to avoid the
select. With your numbers in column A (watch for word wrap)

Columns("A:A").Replace What:="-", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Columns("A:A").Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False


--
sb
"Erik T. Nomad" wrote in message
om...
Is there a way I can quickly apply formatting to a column of phone
numbers such that I can get rid of all spaces, dashes, slashes and
parentheses and am left with only digits? I'm currently using a "Find
and Replace" command to do this, but I'd like to find a way to save
even more time. Thanks.

E