Quitar los números que están en los textos de una columna

Otra alternativa:

Sub BorraNumeros()
Dim Rng As Range
Dim WorkRng As Range
Dim cellText As String
Dim i As Integer

Set WorkRng = Application.InputBox("Rango:", Type:=8)
For Each Rng In WorkRng
xOut = ""
For i = 1 To Len(Rng.Value)
xTemp = Mid(Rng.Value, i, 1)
If xTemp Like "[0-9.]" Then
xStr = ""
Else
xStr = xTemp
End If
xOut = xOut & xStr
Next i
Rng.Value = xOut
Next

End Sub

Te permite seleccionar el rango a tratar...

Te anexo una macro, cambia la letra "C" por la columna en la que tienes los textos

Sub QuitarNumeros()
'Por.Dante Amor
    col = "C"
    For i = 1 To Range(col & Rows.Count).End(xlUp).Row
        For j = 0 To 9
            Cells(i, col) = Replace(Cells(i, col), j, "")
        Next
    Next
End Sub

Saludos.Dante Amor