i'm not sure. Not to experienced with code but i'm learning. The formatting
of the
cells did the trick though. Thx anyway.

"Patrick Molloy" wrote:

if you use numbers, then does your function LEFT(....,3) need to be changed
to ,2) ?


"Peruanos72" wrote:

I was given the following code and it works but I need to also add criteria
that is numeric only. When I add numeric only criteria it does not work.
Thoughts??

Sub DeleteRows()
Dim kpxRow As Long
Dim kpxTemp As Long
Const Criteria As String = "Y08,Y09"
With ActiveSheet
kpxRow = .Cells(.Rows.Count, "E").End(xlUp).Row
For kpxTemp = kpxRow To 1 Step -1
If InStr("," & Criteria & ",", "," & Left(.Cells(kpxTemp, _
"E").Value, 3) & ",") Then .Rows(kpxTemp).Delete
Next
End With
End Sub