arthurvvm,
Boa Tarde!
Barras de progresso são meio complicadas de se adaptar ao tempo necessário que queremos. Abaixo, envio um arquivo exemplo para que você possa ver se consegue adaptar à sua necessidade. Esse exemplo e código não são meus e confesso que nem sei como fazer, pois como nunca precisei, não aprofundei nos estudos para isso.
Como sugestão, se ficar difícil de adaptar, eu recomendo você colocar em sua macro códigos adicionais que ajudarão o usuário a saber que o arquivo está sendo saldo, tipo o código abaixo:
'Exibe mensagem na barra de status do aplicativo
Application.StatusBar = "Aguarde... Salvando o Arquivo!"
'Muda o cursor para uma ampulheta
Application.Cursor = xlWait
'Aqui entra o seu código
.
.
.
'Volta o cursor ao normal
Application.Cursor = xlDefault
'Volta a barra de status do aplicativo para o normal
Application.StatusBar = " "
Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)
Atenciosamente
Wagner Morel
Postado : 30/10/2013 10:36 am