On Sheet 1, Cell A1 is a 5 Digit number I want to lookup on Sheet 2
Range
A2:A1000 and then delete the entire row corresponding to the number.


RowToDelete = Sheets("Sheet1").Cells(1, "A")

Sheets("Sheet2").Cells(RowToDelete, 1).EntireRow.Delet

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