Estou tentando usar range.find para procurar um valor em uma coluna e retornar o valor correspondente da próxima coluna.

Gravei o find () usando o gravador de macro, que pareceu funcionar bem por um tempo, mas por algum motivo, agora está me dando um erro. Até onde sei, não mudei nada que devesse afetar esse pedaço de código.

É isso que eu tenho

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

O erro que estou recebendo agora é:

Variável de objeto ou Com variável de bloco não definida

Alguma idéia de por que isso está acontecendo agora?

Todos os recursos que posso encontrar no range.find () parecem estar fazendo certo ...

Saúde - David