VBA Проверка всех значений коллекции в диапазоне ART

Мне нужно проверить все значения коллекции в определенной области (ART). Но вылезает ошибка , Невозможно получить свойство FindNExt Класса RANGE

For Each d In collection
With art
  Set nextcell = .Find(d)
       If Not nextcell Is Nothing Then
           MsgBox nextcell.Address
            str = nextcell.Address 'write address one find
           Do
         Set nextcell = .FindNext(d)
       MsgBox nextcell.Address
           Loop While nextcell Is Nothing And nextcell.Address <> str
    End If
    End With
Next d

Так-же , в определенной области не все индексы коллекции могут находиться в нескольких ячейках.