InputBox in SheetChange

habe ein mir unverständliches Problem mit einer InputBox, die im Sheetchange bei bestimmten Bedingungen (Zellwertänderung Spalte 6 und wenn Wert nicht gefunden wird) aufgerufen werden soll. Mein Makro ruft aber jede Inputbox gleich 3 mal auf - einmal wie gewünscht am Anfang und zweimal während/nach dem Suchlauf, auch wenn nichts geändert wird. Vermute zwar, daß dies mit der Suche über 3 Blätter zusammenhängt, sollte aber m.E. nicht sein. Auch ein Ausschalten des errorhandlers führt nicht zu nur einmaligem Aufruf. Weiß jemand, was/wie ich ändern muß, damit die Box nur jeweils einmal erscheint?

Herzlichen Dank vorab für jeden Tip
Anita