what's wrong with this code

[muhammad abdelhameed]

it keeps ignoring the last condition...
If zz Like Left(Replace(activ_code, 0, "?"), Len(Replace(activ_code, 0, "?")) - 1) & "1" _
And Left(zz, Len(zz) - 1) <> Left(activ_code, Len(activ_code) - 1) _
And duration.ListColumns(1).DataBodyRange.Find(Left(activ_code, Len(activ_code) - 1) & Right(activ_code, 1) + 1 & "*") _
Is Nothing _
Then
x = x + 1
ReDim Preserve succ(1 To x)
succ(x) = zz
ReDim Preserve cloop(1 To x)
cloop(x) = countloop
Else

End If

 

[Logit]

.
& Right(activ_code, 1)

change to :

AND Right(activ_code, 1)

???