Infoboks - mens makro bliver afviklet evt. på tid

Er der ingen forslag?

Hvor længe kører den makro ?

indsæt den evt. her

Jeg har ikke nogen konkret makro, nok mere en ide, hvis nogen skulle opfatte "makroafviklingstiden" som værende lang?? Hvis makroen er lang nok, kan det i princippet være den tid, boksen skal være oppe. Ved den korte tid vil det maske være smart selv, at kunne bestemme tiden.

fx.

Sub tst()
x = Application.WorksheetFunction.Rept("|", 230)
Application.Cursor = xlWait
For t = 230 To 1 Step -1
Application.StatusBar = "Makro afvikles !!! " & Left(x, t)
DoEvents
For j = 1 To 900000: Next j
DoEvents
Next
Application.Cursor = xlDefault
Application.StatusBar = "Makro færdig"
Beep
End Sub

Øh, hvor sætter jeg min  makro ind og hvor stiller jeg tiden?

Ex.
Sub Minmakro()
Hele min makro
End sub

Er der ikke et bud?

Ligger du et svar exelent?

UPS......Ligger du også et svar exelent?

Lukker.