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

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

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

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 (), выглядят так, как будто яя делаю это правильно ...

Ура - Дэвид