Imprime automaticamente a tela do resultado da fórmula

Question

Eu tenho um procedimento no VBA para chamar um PrintScreen:

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

Eu quero chamá-lo a cada dez segundos, quando o resultado dessa célula

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

é "0" ;
a próxima célula retorna um "Yes" ou "No" if "0"

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

Então, quando esta célula retornar "Yes" , eu quero fazer uma captura de tela. Eu sei que estou perto, mas está me frustrando porque não consigo entender.