Finding two sub-strings within a string

Hi Guys

I have the following code:

For j = 2 To Gfr

If (InStr(1, Cells(j, 7), wordA, vbTextCompare) & InStr(1, Cells(j, 7), wordB, vbTextCompare)) Then
Cells(j, 7).Copy
Cells(i, 2).Select
ActiveSheet.Paste
Exit For
End If
Next j

For some reason the instr functions dont seem to be working correctly. Are they correctly coded?

many thanks