Se référant à la Dynamique des Plages Nommées en VBA

Je vais avoir troublante se référant à un Nom Dynamique de la Gamme en VBA.
Mon gammes sont définies comme

 =OFFSET(Feuille!$B$2,0,0,COUNTA(Feuille!$B:$B)-1,1)

Mon code doit rechercher une gamme pour toutes les entrées dans une autre gamme, le but étant que toutes les entrées manquantes seront ajoutées. Jusqu'à présent j'ai

 Sous UpdateSummary() 
Dim Cellule Gamme 
Dim rngF Que 
Ensemble rngF = Rien 

"Étape à travers chaque cellule de la plage de données 
Pour Chaque Cellule Dans Une Feuille De Calcul("Aspect").Range("A_Date") 
"recherche Résumé de la gamme pour la valeur actuelle de la cellule 
Ensemble rngF = Worksheets("Résumé").Range("Sum_Date").Trouver(De La Cellule.Valeur) //Ne fonctionne pas 
Si rngF Est Rien Alors 
'Ajouter une date au Sommaire 
Fin De Si 
Ensemble rngF = Rien 
Cellule Suivante 
End Sub

Pour la boucle semble fonctionner ok. Cependant, l'utilisation de l' .Trouver la méthode qui me donne un message d'erreur.

 Définie par l'Application ou par l'objet défini erreur

Il fonctionne si je remplace le nom de la gamme avec une gamme spécifique ($B$2:$B$5000), de sorte qu'il semble être de la façon dont la plage nommée est passé.
Toutes les idées seront les bienvenues.

Merci.

Tr qualification tous vos Range références avec la feuille de calcul. Tout non qualifiés Range va se référer à la feuille active, de sorte que vous pourrez rencontrer des problèmes si la plage vous faites référence n'est pas sur cette feuille.
Merci, bien qu'il ne semble pas aider. J'ai mis à jour mon code ci-dessus pour refléter les modifications, mais le résultat est toujours le même.
Quelle est la valeur de Cell lorsqu'il échoue?

OriginalL'auteur Michael | 2012-08-08