ProcessMessages в Excell

[Xatr]

Есть форма. В ней есть кнопка. При нажатии на кнопку, запускается цикл, а форма в это время не доступна.
Существует ли такая функция в VBA, аналогичная функции Application.ProcessMessages в Delphi, чтобы можно было при выполнении цикла нажать на другую кнопку (и остановить цикл например)?

[doober]

Формат ячейки-Время

Dim s As Boolean

Private Sub CommandButton1_Click()
s = False
10

Cells(1, 1) = Now
DoEvents

If s = True Then Exit Sub

GoTo 10
End Sub

Private Sub CommandButton2_Click()

s = True

End Sub