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

У меня есть процедура в 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"я хочу сделать снимок экрана. Я знаю, что я близко, но это расстраивает меня, потому что я не могу получить это.