bekleme komutu

Arkadaşlar diyelim ki basitçe aşağıdaki gibi bir kod yazdım. A1 hücresinin değerinin her saniyede 1 artmasını istiyorum. (1 saniyelik gecikme yaparken uygulamanın kitlenmesini istemiyorum) Sub deneme() for k = 1 To 10 Range("A1") = k 'Buraya 1 saniyelik gecikme atmak istiyorum next k End Sub