Errore di runtime 9 - indice non incluso nell'intervallo

Ciao a tutti, vi espongo il mio problema: Sto lavorando su un file excel (Munters_Mat (Delivery To).xlsm) nel quale devo importare dei prodotti da un file di listino (Listino.xlsm) tramite codice VBA. Da un momento in avanti, ha smesso di funzionare. Posto il codice:

----------------------
Private Sub CommandButton1_Click()
'Clicco il pulsante di ricerca del prodotto

Dim ur As Long
Dim ur1 As Long
Dim risultato As String
Dim rng As Range
Dim sh As Worksheet
Dim ricerca As String
'Worksheets("Ordine Munters").Activate l'attivazione dei fogli FUNZIONA, non quella del file in se

If ListBox1.ListCount > 0 Then
ListBox1.Clear
End If

'se non e' aperto lo apro
'IsWorkBookOpen(percorso del file Listino.xlsm) è una funzione scritta da me che restituisce TRUE se Listino.xls è già aperto, FALSE altrimenti 
Ret = IsWorkBookOpen(Range("U21").Value) 'Range("U21").Value = cella dove ho scritto il percorso del file di listino per verificare sia aperto

If Ret = False Then 'se il file di listino non è aperto allora lo apro e attivo il file Munters_Mat (Delivery To)
Workbooks.Open FileName:=Range("U21").Value
Workbooks("Munters_Mat (Delivery to)").Worksheets("Calc").Activate '--->errore di runtime 9 indice non incluso nell'intervallo
Else ' se il file di listino è già aperto, attivo Munters_Mat per lavorarci sopra
Workbooks("Munters_Mat (Delivery to)").Worksheets("Calc").Activate '--->errore di runtime 9 indice non incluso nell'intervallo

End If
-----------------------------------

ho provato ad attivare un altro foglio del file Munters_Mat e non mi da problemi, ma quando provo ad attivare sia il file Listino.xlsm o Munters_Mat (Delivery To), viene scatenato l'errore di runtime 9. Ho provato a cercare su internet, e chi ha questo problema in genere vuole attivare un foglio di un file che non ha aperto. Oppure si perde uno spazio quando inserisce il paramentro in Workbooks("file da aprire"). Qualcuno sa aiutarmi?? 

ciao

allega il file

Sei sicuro che il nome del file/foglio sia proprio quello?

L'errore di run-time 9 Indice non incluso nell'intervallo sta ad indicare proprio che il VBA non trova quel file/foglio.

Controlla bene.

@patel45 : ciao patel, non potevo allegare il file originale per via del contenuto riservato. In allegato un file in cui h messo un bottone per aprire lo stesso file per cui ricevo errore.
@alfrimpa : ciao alfrimpa, i nomi e i percorsi sono corretti, in quanto con gli stessi il file mi funzionava fino a ieri. Ho ricontrollato, facendomi anche visualizzare a finestra le stringhe.

hai allegato il file sbagliato, è un tiff, comunque non è necessaria la riga
Workbooks("Munters_Mat (Delivery to)").Activate 'errore runtime 09

quando apri un file questo diventa automaticamente attivo

Il problema è che apro il file listino e poi devo attivare il Munters_Mat (Delivery to) per lavorare su di esso. E non me lo fa più attivare. In allegato un altro esempio

il file sbagliato è quello da aprire, comunque stiamo perdendo tempo se continui a dare informazioni insufficienti, macro non complete e file sbagliati.
Almeno controlla cosa hai allegato.

@patel45: ho caricato una cartella compressa contenente un file provaApertura.xlsm . Ho provato ad aprire il file che ho caricato ed è quello giusto. Il mio esempio a me sembra completo, in quanto è questa la parte di codice che mi da problemi, cioè la parte di apertura del listino e di attivazione del Munters_Mat. Non riesco a capire come mai mi ripeti che non è sufficiente quello che ho fornito. Potresti essere più chiaro? Non è mia intenzione far perdere tempo a nessuno, anzi, vi sono grato per il tempo che mi dedicate.

Prova a scrivere la riga così:

Workbooks("Munters_Mat (Delivery to).xlsm").Worksheets("Calc").Activate

ciao @rollins13, ho provato a inserire anche l'estensione .xlsm come mi hai suggerito, ma mi da sempre lo stesso errore. Provo a farlo girare su un altro pc perché da un momento all'altro ha smesso di funzionare e mi sembra troppo strano. Ho provato anche a rinominare i file Munters_Mat (Delivery to).xlsm e Listino.xlsm ma non cambia nulla. Mi sembra impossibile che mi dia l'errore su Munters_Mat (Delivery to).xlsm come se non fosse un file aperto, visto che da esso schiaccio il pulsante che mi fa partire la funzione VBA. Grazie dell'aiuto

novic, tu hai un file xlm con la macro ed un file xlsx che la macro deve aprire, quindi occorrono 2 file, non uno solo.
Cme hai potuto vedere, dando informazioni non complete, non hai ancora avuto risposte risolutive.

Ho provato a far girare il file su un altro computer e non mi da più problemi. Scusate se vi ho fatto perdere tempo, non era mia intenzione. Grazie dell'aiuto dedicatomi. Cercherò di essere più preciso e puntuale la prossima volta.