Change Code from a Worksheet

[FIRSTROUNDKO via OfficeKB.com]

Hi

I have the code

If Cells(NB, 5).Value = "WALK" or Cells(NB, 5).Value = "BIKE" or Cells(NB, 5)
.Value = "BUS" Then

I would like to have

WALK
BIKE
BUS
....... and editions

in Sheet A Col A

so my code line would be something like

If Cells(NB, 5).Value = " Value in cells Sheet A Col A " Then

Thanks in advance for any help

 

[Guest]

If not iserror(Application.Match(Cells(NB,
5).Value,worksheets("sheetA").columns(1),0)) Then

 

[FIRSTROUNDKO via OfficeKB.com]

Thanks Tom

If not iserror(Application.Match(Cells(NB,
5).Value,worksheets("sheetA").columns(1),0)) Then

Hi

[quoted text clipped - 17 lines]

Thanks in advance for any help