Macros con Progress Bar

Buen Dia,

Tengo la siguiente consulta, ten un proceso que ejecuta 4 macros adicionales, me gustaría que en la barra de estado se pudiera mostrar algo similar a un progress bar, que me muestre el tiempo de ejecución, si es posible en %.

Adjunto Macro que Utilizo.

Sub Serv_Digitados()

Application.ScreenUpdating = False

ActiveSheet.DisplayPageBreaks = False

Application.StatusBar = "Preparando Servicios Principales..."

'.....................

Sheets("Cargue").Range("A1").Select Range("B:B,E:E,G:Q,U:V,X:AC,AE:BG,BJ:BK,BM:BO,BQ:BR,BS:CA").Select Selection.Delete Shift:=xlToLeft

Range("A1").Select

'.....................

Call Preparar

Call Consolidar

Call Enviar_Dig

Call Empaquetar_Dig

Application.ScreenUpdating = True

ActiveSheet.DisplayPageBreaks = True

Application.CutCopyMode = False

Application.StatusBar = "Ventas Actualizadas..."

End Sub