debug.Print Sheets(?).range("?").formula
=IF(SUMPRODUCT(($F$5:$F5=F5)*($A$5:$A5=A5))>1,0,1)
Dim x, xx As Double
If x = Evaluate("=SUMPRODUCT(($F$5:$F5=F5)*($A$5:$A5=A5))") > 1 Then
xx = 0
Else
xx = 1
End If
MsgBox xx