Personalmente non sono quindi in grado di suggerire alcunche'.
In quanto al discorso del foglio Home, evidentemente nella A2_Estrai_valori c' e' anche la possibile eliminazione del foglio attivo; se e' cosi', allora non solo hai un errore quando questo capita sull' ultimo foglio prima di Home, ma non avrai analizzato la situazione di tutti i fogli che si trovavano dopo un qualsiasi foglio cancellato.
Il mio suggerimento e' che ragioni a indice decrescente, cioe'
- Codice: Seleziona tutto
For nfg Sheets.Count -1 to 1 step -1
'....
Next I
In quanto al riposizionamento dei fogli, credimi sarebbe solo peggiorativo: l' ordinamento e' un' operazione iterativa che richiede parecchi millisecondi; testare se un certo valore su un certo foglio e' inferiore a un tot richiede invece pochi microsecondi.
Ciao