Progress indicator or countdown timer while refresh macro is running

[DanGres]

Hi everybody,
I'm looking for a way to show a progress indicator based on time (5 minutes) that will display while a 'refresh all' macro is running. The queries take 5 minutes to run, I've seen code for a countdown timer, but nothing that displays while the refresh is running in the background...
All and any help gratefuly received.
Dan

[mehmetcik]

Insert the macro start at the start of your code.
Leave scroll as a separate macro.

Dim TimeLeft As Integer
Sub start()
Application.OnTime Now + TimeValue("00:00:05"), "Scroll"
TimeLeft = 360
End Sub

Sub scroll()
TimeLeft = TimeLeft - 5
If TimeLeft > 30 Then
If TimeLeft / 10 - Int(TimeLeft / 10) = 0.5 Then Display = TimeLeft
Application.OnTime Now + TimeValue("00:00:05"), "Scroll"
Application.StatusBar = Space(Int(TimeLeft / 2)) & Int(TimeLeft / 30) / 2 & " Minutes To go"
Else
Application.StatusBar = ""
End If
End Sub