Try this small macro:

Sub cleantext()
For Each r In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConst ants)
If IsNumeric(r) Then
Else
r.Clear
End If
Next
End Sub

--
Gary''s Student - gsnu200790


"jackwmbg" wrote:

EXCEL 2003