Or:
Code:
Sub M_snb()
   [I2:I200] = [if(E2:E200="","",if(E2:E200=abs(mid(H2:H200,2,100)),"x",""))]
End Sub