Search for partial text from cell value

[ilikered100]

Ok... so I have a simple piece of code that works fine.

Basically it is checking the ActiveCell to see if any part of the cell contains the word "Cat" and if it does, it returns "True" in the cell one column to the right.

'Checks the activecell value to see if any part of the cell contains the text "Cat"
If ActiveCell.Value Like "*Cat*" Then
ActiveCell.Offset(0, 1).Value = "True"
End If

What I would like it to do is to check the ActiveCell to see if any part of the cell contains the word "Cat" but I would like to reference a cell that contains the word "Cat" (e.g. cell A1) instead of the actual word "Cat"

I tried something like this, but it didn't work

'Checks the activecell value to see if any part of the cell contains the text in cell A1
If ActiveCell.Value Like "*Cells(1,1)*" Then
ActiveCell.Offset(0, 1).Value = "True"
End If

Any help is appreciated.

 

[Joe4]

Try this:

If ActiveCell.Value Like "*" & Cells(1, 1) & "*" Then
    ActiveCell.Offset(0, 1).Value = "True"
End If

 

[ilikered100]

That works... Thank you!

 

[Joe4]

You are welcome!

With VBA, the key point to remember that anything found between double-quotes is treated as literal text, so you do not want variables or formulas in between them (unless you are actually trying to put a formula in a cell).