Impostare validazione dei valori di una cella tramite range variabile da altro foglio

Sono un ignorante becero alle primissime armi.
Ho due fogli, nel primo un elenco di prodotti, dove nella prima colonna ho il nome del prodotto e nel secondo il nome del fornitore. Più altre che per ora non interessano.
Nel secondo vorrei inserire le fatture.
Vorrei che, in questo secondo foglio ("fatture"), a seconda del fornitore che scelgo nella prima colonna, nella seconda ci sia il controllo di validazione che mi permetta di inserire i soli prodotti di quello specifico venditore.
Premetto che nel primo foglio le righe sono ordinate per venditore.
Ecco cosa ho beceramente partorito:

------ inizio codice ------

Private Sub Worksheet_Change(ByVal Target As Range)


'SE CAMBIO LA COLONNA "FORNITORE" DEVO CAMBIARE NELLA CELLA A FIANCO I PRODOTTI DISPONIBILI
If Target.Column() = 1 Then

'CERCA IL PRIMO PRODOTTO PER QUEL FORNITORE
Set trovaPrimo = Worksheets("listinototalone").Range("B:B").Find(Target)
primoprod = trovaPrimo.Row()

'CONTA I PRODOTTI PER QUEL FORNITORE

' prima è la cella dove è la prima occorrenza di quel fornitore
' quanti è il numero di occorrenza nella colonna B per quel fornitore


quantiProd = Application.WorksheetFunction.CountIf(Workbooks(1).Sheets(1).Range("B:B"), Target)

ultimoprod = primoprod + quantiProd


Worksheets("listinototalone").Activate
ActiveWorkbook.Names.Add Name:="listdata", RefersTo:=Range(Cells(primoprod, 1), Cells(ultimoprod, 1))
Worksheets("fatture").Activate



With Range("B" & Target.Row()).Validation 'definizione delle celle per la convalida
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:="=listdata"
.IgnoreBlank = True
.InCellDropdown = True
.ShowInput = True
.ShowError = True
End With

End If


End Sub

------ fine codice ------

Purtroppo vedo che la "listdata" punta sempre alle celle del secondo foglio ("fatture") e non al primo ("listinototalone").
Grazie a chi mi saprà aiutare e ne avrà la pazienza.

:help:

Ciao
FORSE nel refetrsTo dovresti aggiungere il nome del foglio interessato

saluti

Grazie Domenico, ci avevo provato ma senza riuscirci. Per questo pensavo di aggirare il problema "attivando" il foglio che mi serviva prima di definire il range pensando che in questo modo puntasse al foglio "attivo".

Avevo provato con:

---------------
ActiveWorkbook.Names.Add Name:="listdata", RefersTo:=Sheets("listinototalone").Range(Cells(primoprod, 1), Cells(ultimoprod, 1))
---------------

ma ricevo errore di run-time 1004.

Avevo provato con:

---------------
ActiveWorkbook.Names.Add Name:="listdata", RefersTo:="WorkSheets("listinototalone").Range(Cells(primoprod, 1), Cells(ultimoprod, 1))"
---------------

ma mi dà errore di compilazione.

Ciao
prova in questo modo:


Mi lascia perplesso:
ultimoprod = primoprod + quantiProd

metteri (salvo controlli):
ultimoprod = primoprod + quantiProd-1

saluti

Ti ringrazio, gentilissimo, funziona.
Solo ho dovuto cambiare la



con



Perchè evidentemente non ero stato chiaro io ma la sintassi ovviamente era giusta (così come la correzione sul calcolo di "ultimoprod").