Hi all,

I'm attempting to add to the following to insert a row for values it cannot find and insert the missing value into column A.

   
   OutPL = Sheets("Inventory_YARD")
     Sheets("Working_Yard").Activate
     For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
     Set findit = OutPL.Range("A:A").Find(what:=Cells(i, 1).Value)
    If findit Is Nothing Then MsgBox "Item #" & i & " Not Found. " & i " will be added to Inventory Yard"
Therefore if the value "554500" from Column A on Sheet "Working_Yard" is not found on Sheet "Inventory_YARD" Then it will find on sheet 554499 or 554501 on Sheet "Inventory_YARD and Insert Below/Above and insert a row
with the value "554500" into column A for the repective row.

So I will end up with:
Column A:
554499
554500 ' new row added w/value
554501

Any help is appreciated.

Thanks,

BDB