Use the InStr() function.

so instead of if range.value=sometext
if InStr(range.value, sometext)=TRUE
--
Gary''s Student


"icdoo" wrote:


My routine looks to see if the active cell is equal to "TEST" , does
anyone know what argument I can use to see if the cell CONTAINS "TEST"
for example if the active cell ="Sample TEST" it would still work.


Dim i As Integer
Dim intRowCount As Integer
intRowCount = Range("A1").CurrentRegion.Rows.Count - 1
For i = 1 To intRowCount
'turns it green if equal to "TEST"
If ActiveCell.Offset(0, 12).Value = "TEST"

With Selection.Interior
.ColorIndex = 4
.Pattern = xlSolid
End With
End If
ActiveCell.Offset(1, 0).Select
Next i


--
icdoo
------------------------------------------------------------------------
icdoo's Profile: http://www.excelforum.com/member.php...o&userid=27342
View this thread: http://www.excelforum.com/showthread...hreadid=468511