Обращение к динамическим именованным диапазонам в VBA

У меня возникают проблемы со ссылкой на динамический диапазон имен в VBA.
Мои диапазоны определены как

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

Мой код должен искать в одном диапазоне все записи в другом диапазоне с намерением добавить все недостающие записи. Пока у меня есть

    Sub UpdateSummary()
    Dim Cell As Range
    Dim rngF As Range
    Set rngF = Nothing

    ' Step through each cell in data range
    For Each Cell In Worksheets("Aspect").Range("A_Date")
        ' search Summary range for current cell value
        Set rngF = Worksheets("Summary").Range("Sum_Date").Find(Cell.Value) // Does not work
        If rngF Is Nothing Then
            ' Add date to Summary
        End If
        Set rngF = Nothing
    Next Cell
    End Sub 

Цикл For работает нормально. Однако использование метода.Find дает мне сообщение об ошибке.

    Application-defined or object-defined error

Это сработает, если я заменю именованный диапазон определенным диапазоном ($B$2 :$B$5000 ), поэтому, похоже, все зависит от того, как передается именованный диапазон.
Любые идеи были бы хорошы.

Спасибо.