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

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

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...