Algo como isso deve funcionar:
Public Function speedtest()
t = Now()
For i = 1 To 200000
'c = Application.WorksheetFunction.CountIf(ActiveSheet.Range("A1"), ActiveSheet.Range("B1"))
c = (ActiveSheet.Range("A1") = ActiveSheet.Range("B1"))
Next i
t1 = Now()
dt = Format(t1 - t, "ss")
ms = MsgBox(dt & " seconds", vbOKOnly)
End Function
A fórmula a ser testada está dentro do loop for
. Um é comentado usando '
, então você pode comentar e descomentar para testar um ou outro