Minha ferramenta do Excel executa uma tarefa longa e estou tentando ser gentil com o usuário, fornecendo um relatório de progresso na barra de status ou em alguma célula da planilha, como mostrado abaixo. Mas a tela não é atualizada ou para de atualizar em algum momento (por exemplo, 33%). A tarefa finalmente termina, mas a barra de progresso é inútil.

O que posso fazer para forçar uma atualização de tela?

For i=1 to imax ' imax is usually 30 or so
    fractionDone=cdbl(i)/cdbl(imax)
    Application.StatusBar = Format(fractionDone, "0%") & "done..."
    ' or, alternatively:
    ' statusRange.value = Format(fractionDone, "0%") & "done..."

    ' Some code.......

Next i

Estou usando o Excel 2003.