How can i change this line of code

[mahmed1]

HI All,</SPAN>

I have this code below.</SPAN>

If Status <> "Yellow Task" And Status <> "Pink Task" And Status <> "Green Task" And Status <> "Purple Task" And Status <> "Other" Then</SPAN>

Do Stuff….</SPAN>

Now I have this status list already defined (Code) in a worksheet</SPAN>

i.e - Defined - Names - Code</SPAN>

Yellow Task</SPAN>

PinkTask</SPAN>

Green Task</SPAN>

Purple Task</SPAN>

Other</SPAN>

Now how can I amend the code to say if status is <> one the items in the defined name (Code) then</SPAN>

do stuff</SPAN>

This way I can just update my code list rather than updating the code if I had more criterias</SPAN>

Thank You</SPAN>

<TBODY>
</TBODY><COLGROUP><COL></COLGROUP>

 

[mahmed1]

HI All,</SPAN>

I have this code below.</SPAN>

If Status <> "Yellow Task" And Status <> "Pink Task" And Status <> "Green Task" And Status <> "Purple Task" And Status <> "Other" Then</SPAN>

Do Stuff….</SPAN>

Now I have this status list already defined (Code) in a worksheet</SPAN>

i.e - Defined - Names - Code</SPAN>

Yellow Task</SPAN>

PinkTask</SPAN>

Green Task</SPAN>

Purple Task</SPAN>

Other</SPAN>

Now how can I amend the code to say if status is <> one the items in the defined name (Code) then</SPAN>

do stuff</SPAN>

This way I can just update my code list rather than updating the code if I had more criterias</SPAN>

Thank You</SPAN>

<TBODY>
</TBODY>

Hi All,

Please advise if i am posting incorrectly. Is there a new procedure we need to follow when posting in this new layout?

Apologies if i am doing it incorrectly

 

[Norie]

You could use Match.

Something like this perhaps.

Dim varCheck As Variant

varCheck = Application.Match(Status, Range("Code"), 0)
If IsError(varCheck) Then
    ' do things

 

[Norie]

Lesceline

Nothing wrong with the post, though you could have put the code in tags.

Mind you it is only one line.