Code Snippets

Remove Words with Numbers

Function RemoveWordsWithNumbers(s As String) As String 
Dim a() As String 
Dim i As Long 
Dim r As String 
    a = Split(s) 
    For i = 0 To UBound(a) 
        If Not a(i) Like "*[0-9]*" Then 
            r = r & " " & a(i) 
        End If 
    Next i 
    If r <> "" Then 
        r = Mid(r, 2) 
    End If 
    RemoveWordsWithNumbers = r 
End Function