Hai mescolato un po' le varie versioni della macro. Così è più facile che ti funzioni:
Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Not ActiveSheet.Name = Sheets(Sheets.Count).Name Then Exit Sub 'se non siamo nell'ultimo foglio esci
If Range("G3") = "" Then Exit Sub 'se non ci sono dati esci (non abbiamo ancora scaricato)
If Not Range("G" & Range("G" & Rows.Count).End(xlUp).Row) = "FINE" Then Exit Sub 'se l'ultima voce non è "FINE" esci
Application.EnableEvents = False 'non attivare altri eventi
Call Macro1 'richiama la macro
Application.EnableEvents = True 'riattiva la gestione degli eventi
End Sub
Forse ho anche capito perché capitano errori; facendo copia/incolla ho notato che vengono introdotti dei caratteri "nascosti" solitamente all'inizio delle righe di codice e a volte anche alla fine se ci sono dei commenti. Bisogna sanare le righe corrotte eliminando tutti gli spazi vuoti per poi rimetterli.
[Modificato da rollis13 21/03/2017 23:47]
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto)