Control F zoekfunctie voor een waarde opgeven in loop

[eriprof]

Hallo,

Ik heb het volgende probleempje. Ik heb een kolom met ID nummers die telkens geselecteerd worden in een loop. Vervolgens moet mijn code in een ander excel bestand dit ID nummer opzoeken.

ID_number = ActiveCell.Value


    Windows("test").Activate
    Worksheets("sheet1").Select
    
        Columns("A:A").Select
        
    Selection.Find(What:=ID_number, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate

Het gaat in principe wel goed, maar zodra er een ID nummer instaat dat niet herkent wordt, krijg ik de volgende foutmelding:

Runtime error 91:
Object variable or With block variable not set

Iemand een idee hoe ik dit kleine probleem kan verhelpen? Ik dacht zelf aan:

on error goto next i ofzoiets

Alvast bedankt

 

[OctaFish]

Bijna goed:
On Error Resume Next

 

[snb]

maar ook dan :
vermijd select en activate

sub snb()
  on error resume next

  sn=Windows("test").sheets("sheet1").Columns(1).Find(activecel.value, ActiveCell, xFormulas,xlWhole).resize(10).value
end sub