check to see if cell contains a string = to member of list

N

NikkoW

I can't seem to find a reference to doing this. Perhaps someone could help
me.

I have a customer list that includes educational institutions. The name may
include the word "school" or "college" or "university" and a bunch of
others. I am using a macro to copy my customer list from one worksheet to
the next. If the cell containing the names of the customers (column A)
includes one of the above strings, I want to skip on to the next row and not
copy that row.

My initial thought was that there might be some function to check if a cell
contained any of my words (that had been defined as part of an array,
perhaps) but I can't seem to find an efficient way of doing this.

Any suggestions?

Thanks again.
 
F

Frank Kabel

Hi
one way would be to combine some InStr statement with or functions.
e.g.

sub foo()
dim sname
sname=Activesheet.range("A1").value
if instr(sname, "school") or instr(sname,"college") or _
instr(sname,"university") then
msgbox "cell A1 contains one of your words"
else
'your code
end if
end sub
 
Top