Marking keywords in big string data, problem

Hello Excel VBA People!

This is my first post, and it's first time I’m looking for help officialy on this forum. I've been reading many good posts here before, and thank's to all of you.

I have Workbook and inside realy specific column A, every cell contains a lot of string data (news, TV transcript etc...). Workbook can contain 1000 – 2000 rows, maybe 10.000, no matter, no limit....
I wrote VBA code for marking specific keywords Array (1000)) which means 'Green color', 'Bold' and 'Underline', and everything working fine, but after that command (Run VBA code), program (Excel), not working properly, actually, working, but slowly. What I need is next option, for other operators in my team: simply F2 (edit cell - column A) and quickly view of marking words.
What can be problem, some format options, or something else (full clipboard)?
How to make Excel to work same as it does before running VBA and marking keywords?

Random exampe is in attach...

I copied the cells with text in, in your file to a new sheet, added similar highlighting of words, and although it slowed Excel up quite a bit, it was nowhere near as slow as your sheet.
2 Points:
1. Excel isn't really a word processor
2. What is the code that places the higlights (markings) of words - perhaps it can be simplified?

Yes, I've tried the same trick, copy to new sheet/wb, formating column A as text or other options, but problem is still here.
I know, it's pretty unusual to use excel for text analysis but it works great for me and my team except this.
VBA code is not too much complicated, I've been used Search function:
.......
KWordPos = Application.WorksheetFunction.Search(keyWords(j), Cell.Value, i)

On Error GoTo 0
If KWordPos > 0 Then
Cell.Characters(Start:=KWordPos, Length:=textLen).Font.Color = RGB(51, 204, 51)
Cell.Characters(Start:=KWordPos, Length:=textLen).Font.Bold = True
Cell.Characters(Start:=KWordPos, Length:=textLen).Font.Underline = True
......
etc...

I'm thinking about run marking keywords only if operator select cell in column A
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
runMarkingKeyWords
End Sub
and if selection is anywhere in the sheet (not in Column 1 (A), run other "undo Sub" - unmark - that could be solution (If there is no other option).

Use:

Good idea, but after Wrap text, content in Column A becoming unreadable, actually, it's not in good direction anymore, so F2 (quick look) loosing sense.

In that case you use another file than you uploaded here.

snb said:

In that case you use another file than you uploaded here.

Click to expand...

No, file is the same. (I cannot post print screen yet, sorry... )
Text in column A is marked, but after F2, it's oriented in vertical alignment, not horizontal. I need better solution.

Your file doesn't do that here.