heres my code..im trying to find all occurences of a part number. Its givign me an error with the portion of this code.
.
.
.
.
.
.

      r2.Select
        Selection.EntireRow.Select
        ActiveCell = r2
        Set r3 = ActiveCell

differentvendor:
    diffvend = MsgBox("Would you like to find another vendor with the same PTI Part number?", vbQuestion + vbYesNo)


    If diffvend = vbYes Then



        Do While Not IsEmpty(ActiveCell)
          MsgBox r3

        Range("PN").FindNext(r3).Select



        Selection.EntireRow.Select


        'If Range("PN").FindNext(r3) Is Nothing Then
            'sorry = MsgBox("Sorry, there are no more vendors for that PTI part number. Restart?", vbQuestion + vbYesNo)
         ' GoTo restart1

        GoTo differentvendor
.
.
.
.
.
.

Please correct me if I am wrong. You are probably facing problem with the line of code:
Range("PN").FindNext(r3).Select

if this is so
replace this line with the following lines or (something like this!)

On error resume next
Range("PN").FindNext(r3).Select
On error goto 0
if activecell=r3 then .... else ....

I hope this would help.

Best regards

Amjad Mahmood
GSK Pakistan