Ciao Gibra, ieri sera ho fatto una prrova e il risultato è stato positivo.
Metto il pezzo di codice pel l'accesso, non si sà mai che possa servire.

Dim appExcel As Object
Dim worExcel As Object

'Creo la nuova applicazione
Set appExcel = New Excel.Application

'Attraverso la nuova applicazione apro il Workbook
'assegnandolo alla variabile oggetto xlBook
Set worExcel = appExcel.Workbooks.Open(nomef2)

Dim sID As String
Dim sBanca As String


For X = 1 To 3
'Decido quale foglio utilizzare
If X = 1 Then
Set appExcel = worExcel.Worksheets("AOL_CARDINIS")
ElseIf X = 2 Then
Set appExcel = worExcel.Worksheets("AOL_CONSEGNATO")
ElseIf X = 3 Then
Set appExcel = worExcel.Worksheets("AOL_CHIUSO")
ElseIf X > 3 Then
GoTo FineElaborazione
End If
'ricavo i dati
For Y = 2 To 100
sBanca = appExcel.Cells(Y, 7).Value
sID = appExcel.Cells(Y, 3).Value
Call VerificaNumeri(sID)
If sID = "" Then
GoTo ProsimoFoglio:
End If
Next
ProsimoFoglio:
Next

FineElaborazione:

ciao e grazie per l'aiuto.