Prova così, aggiungi:
codice:
    Static bDone as Boolean
    If bDone Then Exit Sub
all'inizio della routine


Prima del ciclo For metti
codice:
    bDone = True

Prima di End Sub metti
codice:
    bDone = False
per ristabilire la situazione alla normalità