Cells.find error 91

Question

I have problems with this code. I tried to figure it what is wrong with this code, but cannot find the solution

 Sub RDB_Worksheet_To_PDF()
        Dim FileN         


        

Answer 1

Basically you are trying to find the cell AND activate it at the same time, which will prompt you the error mentioned if nothing is found. You could try find it first then activate:

set smvar = Cells.Find(What:=PONumber, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False, SearchFormat:=False)  
if not smvar is Nothing then smvar.activate