using If to compare 2 cells VBA Excel 2016

[nmganey]

Hi,

I am trying to have VBA check if the active cell contains the word that is in cell A5 on sheet 2. Here is what I have for my code. But it keeps comming back false. Can any one tell me how else to write this? The Active cell has Apples/red and cell A5 has Apples.

If ActiveCell Like Worksheets("Sheet2").range("A2").Value then

Else
bla bla bla

 

[nmganey]

oOPPSS I do have .Value after the Active Cell

 

[My Aswer Is This]

Try this:

Sub Test()
Dim ans As String
ans = Sheets("Sheet2").Range("A5").Value
    If InStr(ActiveCell, ans) Then
        MsgBox "Yes"
        Else
         MsgBox "No"
    End If
End Sub

 

[nmganey]

Try this:

Sub Test()
Dim ans As String
ans = Sheets("Sheet2").Range("A5").Value
    If InStr(ActiveCell, ans) Then
        MsgBox "Yes"
        Else
         MsgBox "No"
    End If
End Sub

when the active cell gets to Grapes/ Purple it still gives me the message box of yes. and cell A% still says Apples

 

[nmganey]

I got it thank you I had the ANS = in the wrong spot if my loop..

 

[My Aswer Is This]

Glad I was able to help you. Come back here to Mr. Excel next time you need additional assistance.
Normally in a loop you would not use active cell. But if it works for you that's great. You did not show us your script.

I got it thank you I had the ANS = in the wrong spot if my loop..