Endlosschleife bei worksheet_change-Ereignis

ich habe folgendes Problem:
ein externes Programm schreibt eine 1 in Zelle A1 des Sheets "Daten". In diesem Sheet habe ich diese Routine:

Jetzt passiert folgendes:
Sobald eine 1 in A1 geschrieben wird, soll Excel eine Textdatei importieren. Das Problem dabei ist, dass der Datenimport von Excel auch als worksheet_change-Ereignis angesehen wird und so eine Endlosschleife daraus resultiert.
Wie kann ich innerhalb dieser Sub die 1 in A1 löschen und es verhindern, dass der Tetximport als change-Ereignis angesehen wird ?
Kann man das change-Ereignis innerhalb der Sub ausschalten ?

Danke Euch !!