Count If any text is entered for the third time and send Email

[Shanaya]

Hello,

i need help with adjusting the following code:

Please Login or Register  to view this content.

When the word "Excel" is entered for the third time anywhere in Range A1:T20, the code sends an Email with body:
Hi there
The word excel has been entered.
Please respond.

I would need to adjust the code, that if ANY TEXT OR WORD is written for the third time, it would send an Email with that word in body.
For example, if I entered the word "Sun" three times, an Email with following text would be sent:
Hi there
The word Sun has been entered.
Please respond.

Any suggestions?

Thank you in advance

[AlphaFrog]

Please Login or Register  to view this content.

[Shanaya]

AlphaFrog, thank you so much, it works perfectly.

I would only need to add that if Target is Text, not number or anything else.

[AlphaFrog]

Please Login or Register  to view this content.

[Shanaya]

Thanks again, but would still need your or anyone's help.

I have many drop down lists with multiple selections and if I have a cell with two selected options - for example "Excel, Worksheet", your code doesn't recognize only "Excel".
Do you have a solution to this?

Characters(Start:=, Length:=) is not an option, because I have many different possibilities.
I tried with finding the exact word/phrase, like:
If Application.CountIf(Range("A1:T20"), "*Excel*") = 3 Then
Call Mail_AB
If Application.CountIf(Range("A1:T20"), "*Worksheet*") = 3 Then
Call Mail_CD
The problem is, that if
A1 = Excel
A2 = Excel
A3 = Excel Worksheet
everything is fine, bit if I enter any word in A4, it again calls Mail AB (because Excel is still entered three times).

The best solution it would be, if I could add a line, that would tell excel to call a certain mail only once.

[AlphaFrog]

The cell that was changed (Target) has to contain Excel and there can only be 3 Excels total.

Please Login or Register  to view this content.