Lightly tested

Sub deleteRowsNonNumericColumnE()
Dim I As Long
With ActiveSheet
For I = .Cells(.Rows.Count, 5).End(xlUp).Row To 4 Step -1
If Not IsNumeric(.Cells(I, 5).Value) Then .Rows(I).Delete
Next I
End With
End Sub
--
Tushar Mehta
http://www.tushar-mehta.com
Custom business solutions leveraging a multi-disciplinary approach
In Excel 2007 double-click to format may not work; right click and select
from the menu


"Peruanos72" wrote:

I'm trying to delete rows of data after row 4 if the cell in column "E" has
any alpha characters in it at all. If the cell in column "E" is all numeric
then no action is taken on that row. Thoughts??