Я пытаюсь использовать range.find, чтобы найти значение в столбце и вернуть соответствующее значение из следующего столбца.

Я записал find () с помощью устройства записи макросов, которое какое-то время работало нормально, но по какой-то причине теперь выдает ошибку. Насколько я могу судить, я не изменил ничего, что должно повлиять на этот кусочек кода.

Это то, что у меня есть

Public Function look_up_id(id, table)
    Worksheets(table).Activate
    Cells.Find(What:=id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate

    look_up_id = ActiveCell.Offset(0, 1).Value
End Function

Ошибка, которую я сейчас получаю:

Переменная объекта или переменная блока не установлена

Есть идеи, почему это сейчас происходит?

Все ресурсы, которые я могу найти в range.find (), выглядят так, как будто я все делаю правильно ...

Ура - Дэвид