Macro remove numbers from texts

[waxb18]

I need a little bit of coding to help me remove numbers from text.

Currently i have


Selection.Replace What:="1", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="2", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="3", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="4", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="5", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="6", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="7", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="8", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="9", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False


Which is a bit long and im thinking there must be an simpler way of doing this

 

[theozz]

Remove Numbers from Texts Sample

Option Explicit


Sub x()' === Module Start
' CodeBy [ 오즈맨 ] , Date : Jun-24-2011
Dim rr As Double, cc As Double
Dim vv As Variant
vv = Selection.Value
rr = UBound(vv, 1)
cc = UBound(vv, 2)
Dim i As Double, j As Double, k As Double
For i = 1 To rr
For j = 1 To cc
For k = 0 To 9
vv(i, j) = Replace(vv(i, j), k, "")
Next
Next
Next
Selection.Value = vv
End Sub ' ___ Module Stop' How About This?