Tom Ogilvy wrote:

Sub proba2()
If InStr(1, Range("A1").Value, Range("B1").Value, vbTextCompare) 0 Then
ActiveCell.Offset(10, 0).Activate
End If
End Sub

You were testing the string literals/constants A1 and B1, not what was in
the Cells A1 and B1.


I wanted to change the "D" range but it doesn't work in the below
example. Is there another way to do it ?



Sub Comparison()
Dim Rng As Integer
Dim i As Integer
Rng = Selection.Rows.Count

For i = 2 To Rng
If InStr(1, Range("C2").Value, Range("D(i)").Value,
vbTextCompare) 0 Then
ActiveCell.Offset(10, 0).Activate
End If
Next i
End Sub


--
Tomek