Prova così, aggiungi:
all'inizio della routinecodice:Static bDone as Boolean If bDone Then Exit Sub
Prima del ciclo For metti
codice:bDone = True
Prima di End Sub metti
per ristabilire la situazione alla normalitàcodice:bDone = False
Prova così, aggiungi:
all'inizio della routinecodice:Static bDone as Boolean If bDone Then Exit Sub
Prima del ciclo For metti
codice:bDone = True
Prima di End Sub metti
per ristabilire la situazione alla normalitàcodice:bDone = False