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



--
Regards,
Tom Ogilvy


"FIRSTROUNDKO via OfficeKB.com" wrote:

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

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200608/1