Find that doesn't Find

[Norton5150]

I have this statement in the middle of a For Next loop

TB_Val = Range("F" & R.Find(What:=TB_Lookup).Row).Value

Trouble is when I try to Find a value that doesn't exist, I get a run-time error '91', object variable or with block variable not set

I've tried handling this with error handling and also with turning off alerts, but neither one helped me.

My Error handling I tried, On Error Resume Next, which ironically seemed to work 1 time through the loop then ignored that.

Thoughts? Thanks

 

[Andrew Poulsom]

You probably just need to clear the error:

On Error Resume Next
TB_Val = Range("F" & R.Find(What:=TB_Lookup).Row).Value
If Err <> 0 Then
   Err.Clear
Else
' Code if no error
End If
On Error GoTo 0

 

[Norton5150]

Thanks Andrew that worked great.