Gib mal im Direktfenster das Untere ein und schliesse mit "Enter" ab.
Application.DisplayStatusBar = True