Автоматически Printscreen от результата формулы

Question

У меня есть процедура в VBA для вызова PrintScreen:

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

Я хочу звонить каждые десять секунд, когда результат этой ячейки

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

это "0" ;
следующая ячейка возвращает "Yes" или "No" если "0"

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

Итак, когда эта ячейка возвращает "Yes" я хочу сделать снимок экрана. Я знаю, что я близко, но это расстраивает меня, потому что я не могу получить это.