hi
how can i change this code to identify the 2 digit no
[vba]day1 = "1"
With ws1
For i = .Cells(.Rows.Count, 1).End(xlUp).Row To 8 Step -1
If InStr(1, .Cells(i, 2).Value, day1) = 1 Then
.Cells(i, 2).EntireRow.Delete
End If
Next i
End With[/vba]
this code work untill if the cell value is one digit but if it 11,12,13,14,15,16,17,18,19 than also it delete the row how can i change that not to delete those row?