Não perca sua macro de vista

Aqui vai uma dica simples para quem gosta de enfeitar suas macros. Mas não confunda o simples com inútil. A primeira vez que utilizei o código que vou mostrar foi para conseguir saber qual trecho/etapa de minha macro estava sendo executado no momento, e quantos ainda tinham por vir. Este artigo não é destinado àqueles que não tem nenhuma noção de macro.

A ideia

A ideia é muito simples, consiste em alterar o texto da barra de status do Excel com algo que nos diga sobre a macro que está sendo rodada, ou qualquer outra informação, vai da imaginação e necessidade de cada um.

O código

Basta colocar as linhas abaixo no seu código no momento em que quiser alterar o texto.

Altere o texto que deseja exibir onde diz FUNÇÃO EXCEL mantendo as aspas, e pronto.

Application.DisplayStatusBar = True 'Certifica/Torna a barra de status visível
Application.StatusBar = "FUNÇÃO EXCEL" 'Texto a ser exibido
Application.StatusBar = "" 'Limpa a barra de status fazendo que volte ao padrão normal

Veja um exemplo de como colocar vários destes código dentro da sua macro.

Sub MinhaMacro()

Application.DisplayStatusBar = True
Application.StatusBar = "Configurando layout - Etapa 1/3"
'Trecho do código que configura o layout

Application.StatusBar = "Escrevendo fórmulas - Etapa 1/3"
'Trecho da macro que escreve fórmulas

Application.StatusBar = "Calculando resultados - Etapa 3/3"
'Trecho do código que calcula os resultados

Application.StatusBar = ""

End Sub