VBA - Open Publisher

Sub OpenPub()

'Set reference to use Microsoft Publisher

'Use the Tools Menu and References

'Search down the list for Microsoft Publisher

Dim pubApp As Publisher.Application

Dim pubDoc As Publisher.Document

Set pubApp = New Publisher.Application

pubApp.Open ("C:\Documents\Publisher Document Name.pub")

'pubApp.ActiveWindow.Visible = True

pubApp.ActiveDocument.ExportAsFixedFormat pbFixedFormatTypePDF, "C:\Documents\PDF Document name.pdf"

pubApp.Quit

End Sub