Boa tarde Dunguinha!

Adiciona o DoEvents após a alteração do formulário para que ele altere o fomulário.

Private Sub BotaoIniciar_Click()
   
   Me.ProgressBar1.Max = 10
   Me.ProgressBar1.Min = 1

For i = 1 To 10

   lblProgresso.Caption = i * 10 & "% Carregando..."
   Me.ProgressBar1 = i
   Application.Wait Now + TimeSerial(0, 0, 1)

DoEvents

Next i

   UserForm1.Hide
   
End Sub

Bom dia colegas.
Acrescentei DoEvents como indicado, agora mostra a contagem da porcentagem da barra progresso, mas o relógio continua travado após execução.

Mais alguma dica?

Obrigado.

Ainda continua travando?

Estranho! Testei aqui e deu certo. Vou ver de novo quando chegar no PC.