In the following code, Im tying to go down the €œCombined€� worksheets
columns cells locating the values of the cell in the worksheet €œVoidReq€� &
delete that sheets row if found, continuing down the €œCombined€� worksheets
columns cell until it runs into empty cell.

The problem is sometimes it will not find the value on the €œCombined€� sheet
& I want it to skip over deleting a row & continue on down the column until
it gets to the empty cell at the bottom. I have an error catch €œError GoTo
FindAgain€� but in running the code it seems to only skip over one not found
entry & when it runs into another not found entry it craps out.

I know the code is I have is probably sloppy & I apologize but Im still a
struggling learner€¦

Do While Not IsEmpty(ActiveCell)
If IsEmpty(ActiveCell) Then
Exit Do
Else
Vfind = ActiveCell.Value
Sheets("Combined").Select
On Error GoTo FindAgain
Cells.Find(What:=Vfind, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Delete Shift:=xlUp
FindAgain: Sheets("VoidReq").Select
ActiveCell.Offset(1, 0).Range("A1").Select
End If
Loop