Progress Bar implementation - Publish to PDF macro

Hi.  I'd like to add a progress bar to this macro so I know it worked or is processing.  Any help out there?

code below:

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
Sub Go()
Dim dn As String, ps As PDFVBASettings
  Set ps = ActiveDocument.PDFSettings
  If ActiveDocument.Dirty Then ActiveDocument.Save
  On Error GoTo ErrHandler
  'ps.ShowDialog
  dn = Left$(ActiveDocument.FullFileName, Len(ActiveDocument.FullFileName) - 4) & ".pdf"
  ActiveDocument.PublishToPdf dn
ExitSub:
Exit Sub
ErrHandler:
 MsgBox "Error occured: " & Err.Description & Err.Number
 Resume ExitSub
End Sub