Свойство StatusBar позволяет задать текст строки состояния. Рекомендуется применять данное свойство совместно со свойством Cursor. Приведем пример использования свойства StatusBar:

' Присвоить значение True свойству DispIayStatusBar,
' чтобы вывести строку состояния.
Application.DispIayStatusBar = True

' Установка текста строки состояния.
Application.StatusBar = "Обработка, пожалуйста, подождите... "

' Замена обычного указателя мыши на песочные часы.
Application.Cursor = xlWait

' Вызов требуемой процедуры
GetSalesData

'Восстановление обычного вида указателя
Application.Cursor = xlDefault

'Восстановление стандартного текста строки состояния
Application.StatusBar = False

Для комментария : kadan@grsu.grodno.by