Imprimir pantalla automáticamente a partir del resultado de la fórmula

Question

Tengo un procedimiento en VBA para llamar a PrintScreen:

Sub PrintScreen()
keybd_event VK_SNAPSHOT, 1, 0, 0
End Sub

Quiero llamarlo cada diez segundos, cuando el resultado de esta celda

=IFERROR(VALUE(TEXT(F4,"ss")),-ABS(VALUE(RIGHT(F4,2))))

es "0";
la siguiente celda devuelve a "Yes"o "No"si"0"

=IF(RIGHT(I5,1)="0","Yes","No")

Entonces, cuando esta celda regrese, "Yes"quiero tomar una captura de pantalla. Sé que estoy cerca, pero me frustra no poder conseguirlo.