This is an example of one way to do it with milliseconds. This creates a definable variable "sleep" and 500 equals half of a second.
Option Explicit

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub SleepVBA()
Dim i As Long

Do Until i = 5
    i = i + 1
    Range("A1") = i
    Sleep 500
Loop
End Sub
Just to give an idea...