Find specific text in string

[bobkap]

I am trying to find if a string of text contains a specific word and if it does, to enter a word in a cell to the right of the text. Here's my code. For some reason the instring number always comes out to 39. But in this case, for every row that has the word "eCard" in the 5th column I want to show the word "eCard" or something like that. With this code EVERY row I have shows "eCard" even if the word in not present.

Sub Find_Text_In_String()
'
' Find_Text_In_String Macro
'
Dim bcol As Integer
Dim finalcol As Integer
Dim finalrow As Integer
Dim banana As Variant
bcol = Application.Match("Memo", Range("1:1"), 0)

finalcol = Cells(1, Columns.Count).End(xlToLeft).Column
finalrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

For counter = finalrow To 2 Step -1
If InStr(Cells(finalrow, bcol).Value, "eCard") > 0 Then
Cells(counter, bcol + 4) = "eCard"
End If
Next counter

'
End Sub

 

[Michael M]

Shouldn't this row

If InStr(Cells(finalrow, bcol).Value, "eCard") Then

Be

If InStr(Cells(COUNTER, bcol).Value, "eCard") Then

And make sure the syntax of "eCard" is exactly that
not, for instnace...."ecard"

 

[bobkap]

Shouldn't this row

If InStr(Cells(finalrow, bcol).Value, "eCard") Then

Be

If InStr(Cells(COUNTER, bcol).Value, "eCard") Then

And make sure the syntax of "eCard" is exactly that
not, for instnace...."ecard"

GRRRRR.....thanks!! I really appreciate it, but I'm embarrassed that I didn't see that.

 

[Peter_SSs]

.. trying to find if a string of text contains a specific word and if it does...

It mat not be an issue with your data but it would mark "eCard" on a row that contained "TeleCard" even though the word "eCard" does not appear in that row. Is that likely to be an issue for you?