Solved: Help with Find/Delete Entire Row

[jolivanes]

Would this do it? (On a copy of your workbook)

[VBA]Sub Try_This()
Dim RPtoDel As String
Dim delrows As Long
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
RPtoDel = InputBox("Enter RP#")
With Worksheets("PY Query")
.Columns(16).Replace (RPtoDel), "", xlPart
.Columns(16).SpecialCells(4).EntireRow.Delete
End With
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
End Sub[/VBA]