replace code to array values

[vics_roo]

in macros I have

...
If (tmp <> "aaa1") And (tmp <> "aaa2") And (tmp <> "aa23") And (tmp <> "aaa6") _
    And (tmp <> "ba45") And (tmp <> "ba63") And (tmp <> "ba56") _
....
And (tmp <> "cc15") And (tmp <> "ddd3") And (tmp <> "kkk6") Then
    Rows(i).Delete
End If
...

The count of these string values become larger. I would like to read these values from cells.
I read them to string array, but result after using such construction is not correct.

For k = 0 To UBound(columnAArray)
        If (tmp <> columnAArray(k)) Then
              Rows(i).Delete
        End If
Next k

Seems it happening if i not use word "And" in it. So how to make codes equal ?

Thanks for advance

 

[Akuini]

Try:

Dim flag As Boolean
flag = False
For k = 0 To UBound(columnAArray)
        If (tmp = columnAArray(k)) Then
              flag = True: Exit For
        End If
Next k

If flag = False Then Rows(i).Delete

 

[offthelip]

try ths:

delt = True
For k = 0 To UBound(columnAArray)
        If (tmp = columnAArray(k)) Then
        delt = False
        Exit For
        End If
Next k
If delt Then
 Rows(i).Delete
End If