Grace

The macro deleted any row that had a text entry in column A

I have modified it to delete all rows where the cell in column a i
text or blank


Sub dddd()
Dim lRow As Long
For lRow = Range("a" & Rows.Count) _
.End(xlUp).Row To 21 Step -1
If Not IsNumeric(Cells(lRow, "a")) _
Or Cells(lRow, "a") = "" Then
Rows(lRow).Delete
End If
Next lRow
lRow = Range("a" & Rows.Count).End(xlUp).Row
Range("a21:e" & lRow).Sort _
Key1:=Range("B21"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom

End Su

--
Message posted from http://www.ExcelForum.com