Function NumOnly(AnyVal As String)
Dim RegEx
Set RegEx = CreateObject("vbscript.regexp")
RegEx.Global = True
RegEx.Pattern = "[^\d\s]+"
KillNonNum = RegEx.Replace(AnyVal, "")
Set RegEx = Nothing
End Function
I'm sure there's a real formula, but I use the find & replace feature. Put
the character to remove (one at a time) in the Find box, leave the replace
box empty, and replace all. You have to select the column you want to
remove them from.