Show timer when running a long macro

[Son]

Hello! When I ran a long macro, I use a textbox in a userform with a label, telling the user to wait. The textbox has also a nice image for them to look at.

However, I'd like to show the user how long this takes, by using a timer counting how long the process takes.

So for example, if the user sees that 15mins have passed, he'll know that the macro is about to finish. The following code works but only states the time that the macro began.

It is useful if the user compares this to the current time. But I'd much rather prefer that they saw a timer on the label or somewhere else. Could this be done?

And also, do you have any other suggestions about what else I could show to make the user more interested instead of bored when waiting for the macro to finish? This long running macro uses a combination of various macros, some of which are manipulating the status bar showing various messages.

Your ideas would be most appreciated!!!

Sub Live_time()
    Application.OnTime Time + TimeValue("00:00:01"), "Live_time"
    UserForm1.Label1 = Time
    UserForm1.Repaint
End Sub

Private Sub UserForm_Initialize()
lblMessage.Caption = Processing_Message & " " & Time
Application.OnTime Time + TimeValue("00:00:01"), "Live_time"
End Sub

 

[Fluff]

Not something I've ever done, but Andy Pope has a collection of progress meters here

Progress meters

Progress meters examples.

www.andypope.info

 

[Son]

Thanks for your reply, but I am not looking for a progress bar, I'd like to have a timer on the userform label if that's possible.

 

[Fluff]

In that case I'm afraid I cannot help. As I said it's not something I've had need of.