Barra de progreso al exportar a excel

Maestros tengo una duda que no pude resolver, quisiera que al exportar una tabla de access a excel me aparezca una barra de progreso para saber el avance de la exportación, ya que cuando la tabla contiene muchos registro tarda el proceso de exportación. El código lo adapte de nuestro experto Neckkito y Sveinbjorn El Rojo:

Dim miruta as string

Dim mensaje as string 

Mensaje = msgbox("desea bajar a su pc los archivos seleccionados?", vbyesno + vbquestion, "archibos de análisis")

If mensaje = vbyes then

Mi ruta = inputbox("escribe la ruta de exportación")

If strptr(miruta)=0 then exit sub

If V1=-1 then

DoCmd.TransferSpreadsheet acExport, 8, "informe A", miruta &  "\"&"informe A", True, ""

End if

End if