Dando uma olhada rapida em seu modelo vi que utiliza uma rotina que foi criada para "Barra de Progresso" (Progress Indicator) - http://www.excel-easy.com/vba/examples/ ... cator.html

Minha sugestão é que em vez da animação vir para baixo, ele anime para o lado assim só altere :
BarReal.Top = pctcompl * 2

para
BarEst.Width = pctcompl * 2

Não segui a lógica do calculo, mas entendo que como os calculos estão na planilha é só pegar o valor direto na planilha e alimentar a variável pctcompl, sem precisar utilizar a rotina
"Sub ProgressoEst(pctcompl2 As Single)"

Bom dia,

Entendi... Obrigado pela dica.

Vou tentar fazer com que o entendimento do tanque enchendo e esvaziando fique na forma horizontal e não vertical como gostaria.