Acrescente em seu codigo essa Linha

Application.StatusBar = "Salvando Arquivo. . . . . "

E no fim

Application.StatusBar = False

A sugestão do Prudencio é boa.
vai atender pq vai exibir um texto no canto esquerdo inferior do excel, e vai desaparecer o texto no final...

Só um detalhe, não vai mostrar tempo decorrido, e não é uma barra de progresso, é só um status estático.
Daí vc vai perguntar,"tem como fazer um progresso, mostrando o tempo, bla bla bla?"
A resposta é: "não, não tem, pois não podemos rodar nenhuma linha de código durante o '.Save' e para mostrar tempo decorrido, ou um progresso em porcentagem, precisaríamos rodar linhas de código"

Então, sugiro que aceite a sugestão do Marcelo Prudêncio.

Abs,

FF

Valeu pela dica e pela explicaçāo atende as minhas necessidades eu so queria que mostrasse algo para nāo dar a impressão de que ficou travada, muito obrigado mesmo.