Faking an animated image in a userform?

[BBrandt]

I've gathered that it's not possible to place an animated GIF like this:

in a userform in Excel. As you might have guessed, I've created a macro that, depending on user inputs, can take a bit of time to run, and I want to display something to let the user know that Excel hasn't locked up. Ideally, this would be a sort of faux status bar like the one above that implies that there is work being done without necessarily actually indicating the amount of work completed (I figure that would be easier to code).

Do you have any recommendations about how to accomplish something like this? Ideally also I'd like to not have to download anything in order to make this work, as the spreadsheet is designed for others to use, so it would be inconvenient if they had to install an add-in or similar to get it to run. Thanks in advance!

 

[fpskidmark]

Hmmmmm! Thanks Andrew. Let me give that try!
Regards,
FP

 

[fpskidmark]

OMG! Finally, It works! Thanks a million, Andrew.
I added the "DoEvents" code after each section to display the % & the FrameProgress Width...

Thank you,
FP

PctDone = 0
    With UserForm1
        .FrameProgress.Caption = Format(PctDone, "0%")
        .LabelProgress.Width = PctDone * (.FrameProgress.Width - 10)
        DoEvents
        Call WAIVES
        PctDone = PctDone + 1 / 12
        .FrameProgress.Caption = Format(PctDone, "0%")
        .LabelProgress.Width = PctDone * (.FrameProgress.Width - 10)
        DoEvents
        Call BPK_Collections
        PctDone = PctDone + 1 / 12
        .FrameProgress.Caption = Format(PctDone, "0%")
        .LabelProgress.Width = PctDone * (.FrameProgress.Width - 10)
        DoEvents
        Call Loc_Dept_User
        PctDone = PctDone + 1 / 12
        .FrameProgress.Caption = Format(PctDone, "0%")
        .LabelProgress.Width = PctDone * (.FrameProgress.Width - 10)
        DoEvents
        Call POS_Collections
        PctDone = PctDone + 1 / 12
        .FrameProgress.Caption = Format(PctDone, "0%")
        .LabelProgress.Width = PctDone * (.FrameProgress.Width - 10)
        DoEvents
        Call HB_Sum
        PctDone = PctDone + 1 / 12
        .FrameProgress.Caption = Format(PctDone, "0%")
        .LabelProgress.Width = PctDone * (.FrameProgress.Width - 10)
        DoEvents
        Call HB_Col
        PctDone = PctDone + 1 / 12
        .FrameProgress.Caption = Format(PctDone, "0%")
        .LabelProgress.Width = PctDone * (.FrameProgress.Width - 10)
        DoEvents
        Call Voids
        PctDone = PctDone + 1 / 12
        .FrameProgress.Caption = Format(PctDone, "0%")
        .LabelProgress.Width = PctDone * (.FrameProgress.Width - 10)
        DoEvents
        Call Cash_Drawer
        PctDone = PctDone + 1 / 12
        .FrameProgress.Caption = Format(PctDone, "0%")
        .LabelProgress.Width = PctDone * (.FrameProgress.Width - 10)
        DoEvents
        Call OverShort
        PctDone = PctDone + 1 / 12
        .FrameProgress.Caption = Format(PctDone, "0%")
        .LabelProgress.Width = PctDone * (.FrameProgress.Width - 10)
        DoEvents
        Call Brinks
        PctDone = PctDone + 1 / 12
        .FrameProgress.Caption = Format(PctDone, "0%")
        .LabelProgress.Width = PctDone * (.FrameProgress.Width - 10)
        DoEvents
        Call Open_Drawer
        PctDone = PctDone + 1 / 12
        .FrameProgress.Caption = Format(PctDone, "0%")
        .LabelProgress.Width = PctDone * (.FrameProgress.Width - 10)
        DoEvents
        Call Small_POS_Collections
        PctDone = PctDone + 1 / 12
        .FrameProgress.Caption = Format(PctDone, "0%")
        .LabelProgress.Width = PctDone * (.FrameProgress.Width - 10)
        DoEvents
End With