Sub NoNumbers()
Dim i As Integer
Dim j As Integer
Dim iLastRow As ing
Dim iLastCol As Integer

'find last row, last column number  -- left as an exercise

For i = 1 To iLastRow
For j = 1 To iLastCol
If WorksheetFunction.IsText(Cells(i, j).Value) = True Then _
Cells(i, j).Value = vbNullString
Next j
Next i

End Sub