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 = " "

Opa! Esqueci o arquivo. Segue.

Não era isso que eu queria mas de qualquer forma obrigado.
Esse exemplo eu já havia baixado, mas queria um que se aplicasse melhor a minha necessidade: salvar.
Vou aguardar pra ver se alguém mais se pronuncia.

Abraços!