MS Excel

V podstate minimálne upravené z on-line nápovedy k statusbar:Sub test()
Dim oldStatusBar As String
oldStatusBar = Application.DisplayStatusBar
Application.DisplayStatusBar = True
Application.StatusBar = "Please be patient..."
'Workbooks.Open Filename:="LARGE.XLS"
Application.StatusBar = False
Application.DisplayStatusBar = oldStatusBar
End Subcitovat

Ahoj lidi!
Já to řeším vložením WordArt.
Když vím, že běh makra si vyžaduje nějakou dobu (importy, exporty na síti atd.) vložím na začátku procedury WordArt (čekej makám) pojistím to "ScreenUpdating = True", pak False. Potom pro případ, že by se běhěm chodu makra něco zvrtlo, vyměním WordArt s hláškou (chyba makra + klv.zkratka). Tato hláška se samozřejmě objeví pouze v případě nechtěného ukončení makra a nabádá, aby pomocí klávesové zkratky bylo vše uvedeno do normálu (Události, přepočet, zámky atd). Na konci kodu tento WordArt odstraním.citovat