How do I check whether a keyword is in the cell title and then put in category row if so?

[Legacy 329151]

Title	Category	Keyword
Easy PHP Course		CSS
Excel Made Easy		Java
The basics of HTML		Android
Easy Guide to CSS
Java Mobile Guide
C# Applications Book
Android Mobile Apps

<tbody>
</tbody>

 

[Legacy 329151]

What happens if 2 keywords in the list are found in the title?

 

[Bill Rockenbach]

Dim Title As Range
For Each Title In Range("MyTitles")
    If InStr(Title, "CSS")>0 Then Title.Offset(0, 1) = "CSS"
    If InStr(Title, "Java")>0 Then Title.Offset(0, 1) = "Java"
    If InStr(Title, "Android")>0 Then Title.Offset(0, 1) = "Android"
Next Title

 

[Legacy 329151]

Is this code needed to be added to a macro.

I thought maybe vlookup or match may have been able to do this

 

[Legacy 329151]

Where do I paste Bill's code?

In a cell or create a macro?

 

[FormR]

Here is a formula option:

Excel 2012
	A	B	C	D
1	Title	Category		Keyword
2	Easy PHP Course	Not Found		CSS
3	Excel Made Easy	Not Found		Java
4	The basics of HTML	Not Found		Android
5	Easy Guide to CSS	CSS
6	Java Mobile Guide	Java
7	C# Applications Book	Not Found
8	Android Mobile Apps	Android
Sheet1

Cell Formulas
Range	Formula
B2	=IFERROR(LOOKUP(1,1/COUNTIF(A2,"*"&$D$2:$D$4&"*"),$D$2:$D$4),"Not Found")