Dim i As Integer

For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
Select Case IsNumeric(Left(Range("a" & i).Value, 1))
Case False
Rows(i).Delete Shift:=xlUp
End Select
Next

-----------------------------------------------
~~ Message posted from http://www.ExcelTip.com
~~View and post usenet messages directly from http://www.ExcelForum.com