Boa tarde!!

Leia:
http://www.google.com.br/cse?cx=partner ... 0progresso

Att

No tópico abaixo tem um exemplo bem simples e comentado.
Barra de Progresso (ProgressBar)
viewtopic.php?t=10557&p=55733

[]s

amigos, boa tarde.

Obrigado pelas respostas.

O caso é que os exemploes que vcs postaram e todos os demais que encontrei, consideram um loop onde, ao final de cada passagem, o contador que alimenta a barra é acrescido de mais 1.
O meu caso não tem loop. É apenas um código muito grande.

Tens alguma sugestão ?

Obrigado.

Renato, dificilmente irá encontrar uma rotina de Barra de Progressão que não efetue um Loop, ele é necessário para a contagem, se ler atentamente no tópico que indiquei:
" o importante a analisar em qualquer Barra de Progressão é que a mesma não entende se determinada rotina associada a ela terminou ou quanto tempo ela levará, isto tem de ser definido nos Parametros e temos de ir alterando estes parametros até ver que a sincronização ficou ajustada, e isto varia de caso a caso, ou seja das ações executadas pelas rotinas"
Então não importa o tamanho e sua rotina, no exemplo que anexei, você terá de fazer a chamada a sua macro na rotina Sub XLPrgBar_Sample() onde está indicado, após a linha :
For i = 1 To AllRows

Call SuaMacro aqui você tem de chamar a sua macro

então de acordo com os parametros de contagem que colocou será efetuado o loop para ir preenchendo a Barra.

[]s

vc pode de inicio tentar otimizar a macro

e se não resolver...

no loop é definido o incremento da barra
então vc define esse incremento ao longo do seu código

em cada parte do código faz um incremento da barra de tempo

mas sugiro que primeiramente tente otimizar o seu codigo,
pode postar um exemplo de planilha com a sua macro aplicada
para o pessoal analisar para ver se tem algo que possa melhorar.

att