If statement shows objected required?

[lfbh222]

When debug it, it shows error "objected required", here is the code

 If InStr(1, Criteria, R, vbTextCompare) > 0 And Not R Is Nothing Then

I try several ways to figure out how to compare "" and null. when use IsNull, R="", IsNull(R)will be true, but I hope to when R="", it will return false, so how to use the function?

[lfbh222]

I use R = Cells(row, "AK"), there is nothing in this cell, but debug it, it shows R=" ", so how to do it in the if conditions use null or nothing ?

[westconn1]

R = Cells(row, "AK")

if R is dimensioned as a range an error should occur here, else in this case R would be a variant, which is not an object
try like

set R = Cells(row, "AK")

in this case R would be a range object

If InStr(1, Criteria, R, vbTextCompare) > 0 And Not R Is Nothing Then

if r is nothing an error would occur, when trying to evaluate the first criteria, you must do like

if not R is nothing then
        If InStr(1, Criteria, R, vbTextCompare) > 0  Then

in this case if R is nothing the other criteria would not be evaluated