My Guess is that Col A is text not Number Format, if so you would need to
replace this line

If ActiveCell.Value = 83410 Then

with

If ActiveCell.Value = "83410" Then

it should then be ok

r
pete


Sub DELETE_83410()
Range("A1").Select
Do Until ActiveCell.Value = ""
If ActiveCell.Value = "83410" Then
numRows = Selection.Rows.Count
numColumns = Selection.Columns.Count
Selection.Resize(numRows + 7, numColumns + 0).Select
Selection.Delete
ActiveCell.Offset(-1, 0).Select
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub


--
(][ This Email has been scanned by Norton AntiVirus. ][)
"anurag.d " wrote in message
...
Anyone else got any better options??

Thanks in advance


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