Scopri foglio Excel

Ciao ragazzi.
Io ho due file. In uno, voglio che il foglio "nominativi" sia nascosto.
Nel secondo file, con una macro associata a un pulsante prelevo dei dati dal foglio "nominativi" del primo file.
Quindi per fare ciò nella macro, lo rendo visibile e poi opero.
Bene, cosi facendo mi da errore quando faccio il select nel foglio "nominativi". Come se non lo scoprissi bene
Se invece non lo nascondo nel primo file, la macro funziona.
Cosa sbaglio? Grazie

Sub Magazzino()
Application.DisplayAlerts = False
Sheets("MAGAZZINO").Range("A2:A2000").ClearContents
Application.ScreenUpdating = False
Workbooks.Open Filename:="C:\Users\fabio\Desktop\MAGAZZINONEW\magazzino\Codici.xlsx", UpdateLinks:=False
Workbooks("Codici.xlsx").Sheets("nominativi").Visible = xlSheetVisible
Workbooks("Codici.xlsx").Sheets("nominativi").Range("E2:E2000").Select
Selection.Copy
Windows("Magazzino.xlsm").Activate
Sheets("MAGAZZINO").Range("A2:A2000").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Range("$A$1:$A$2000").RemoveDuplicates Columns:=1, Header:= _
xlYes
Call Bordi
Call Scrittura
Range("A2").Select
Application.Workbooks("Codici.xlsx").Close SaveChanges:=True
Application.ScreenUpdating = True
Application.DisplayAlerts = False


End Sub

io la scriverei così:

se non funziona allega 2 file di esempio

Anche così non va.
Per i file di esempio, ti dovrei inviare i due file su cui sto lavorando. Crearne due di esempio è difficile, ci sono molti collegamenti.

FUNZIONA, grazie mille!