Formülün sonucundan otomatik olarak Baskı Ekranı

VBA'da PrintScreen'i çağırma prosedürüm var:

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

Her on saniyede bir, bu hücrenin sonucu olduğunda onu aramak istiyorum.

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

olduğu "0";
sonraki hücre bir "Yes" veya "No" Eğer "0"

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

Yani, bu hücre geri döndüğünde "Yes" Ekran görüntüsü almak istiyorum. Yakın olduğumu biliyorum ama bulamadığım için beni sinir ediyor.