saat ile döngü kurmak

[faruk66]

saat döngüsü
mesla saat 21 den 21.20 ye kadar bir işlem yaptırmak istiyorum döngüyü becerenedim

 

[Ferhat Pazarçevirdi]

Mesela şöyle olabilir

Sub saat()
Do While Time >= "21:00" And Time <= "21:20"
Cells(1, 1) = Time
DoEvents
Loop
End Sub