Highlight a set of data from column D and remove the same words from Column E

Please Login or Register  to view this content.

Thanks yudlugar ,

Sorry for being a total rookie, but can you tell me the code change i can do if i want this to work on a set of words where as in
target_word = "red","blue","green"

Please Login or Register  to view this content.

you sir take my like ..

added reputation and closing this thread

oh and one more quick question ,

What if i want to delete the String which is there in column B and column C from the data in column E , would be again 1 or 2 more lines of code can you add that for me in the above code ? I have crude way of doing it but it will be of great help if you could do it more efficiently . Anyways i am closing this post thanks again

Sub macro_1()
Application.ScreenUpdating = False
Dim count, target_word, pos, i
count = 1
Do Until Range("D" & count) = ""
target_word = Array(Range("B" & count),Range("C" & count))
For i = 0 To 1
Range("E" & count) = Trim(Replace(Range("E" & count), target_word(i), ""))
pos = InStr(1, Range("D" & count), target_word(i))
If pos > 0 Then
Range("D" & count).Characters(pos, Len(target_word(i))).Font.Bold = True
Range("D" & count).Characters(pos, Len(target_word(i))).Font.Underline = True
End If
Next
count = count + 1
Loop
Application.ScreenUpdating = True
End Sub

thanks yudlugar for your time. I have a minor issue after running the code. When i have a target_word string twice in column D , its only getting highlighted once . Is there a way to fix it ?

Please Login or Register  to view this content.