Ошибка времени выполнения VBA 91. Устранение неполадок объекта переменной отладки

Question

Я взял на себя чужой макрос, который покинул организацию. Я получаю следующую ошибку, указанную в заголовке с ошибкой времени выполнения.

Ниже приведен код, который говорит мне об отладке. Проблема в том, что это мой первый раз для макросов VBA, и я не уверен, с чего начать эту ошибку.

Любая помощь будет замечательной, поскольку я не могу пройти мимо этой точки.

Cells.Find(What:="Top 10 Rank", After:=ActiveCell, LookIn:=xlValues, _ 
     LookAt:=xlPart, SearchOrder:=xlByRows, _ 
     SearchDirection:= xlNext, MatchCase:=False, _ 
     SearchFormat:=False).Activate 

Answer 1

Если значение не найдено в области поиска, то вы получите сообщение об ошибке, так что лучше разделить код на отдельные операции:

Dim f As Range 
Set f = Cells.Find(What:="Top 10 Rank", After:=ActiveCell, LookIn:=xlValues, _ 
        LookAt:=xlPart, SearchOrder:=xlByRows, _ 
        SearchDirection:= xlNext, MatchCase:=False, _ 
        SearchFormat:=False) 

If Not f Is nothing Then 
    'do somthing with f 
Else 
    Msgbox "not found!" 
End If 

Answer 2

не было найдено никаких данных, так .Find возвратила нулевой объект (Nothing в VBA), как описано в этом Microsoft Support page:

Этот макрос ошибка возникает, так как Основной метод Визуальный поиск возвращает значение NULL что делает невозможным активацию клетки.