Estou entendendo que você precisa de uma resolução menor que um segundo.
Tente o código a seguir:
Option Explicit
#If VBA7 And Win64 Then
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#Else
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If
Sub Main()
Dim i As Long
For i = 1 To 30
Cells(i, "A") = "i"
Sleep 100
Next i
End Sub
http://www.ambienteoffice.com.br - http://www.clarian.com.br