Office: (Office 2010) VBA- Blatt als PDF Speichern und öffnen

Hallo und guten Morgen,
da meine VBA Kenntnisse recht gering sind bitte ich Euch um Hilfe bei folgender Frage.
Das aktuelle Blatt wird als PDF gespeichert, u.a. mit dem Namen der hier in Zelle AC6
steht und dies am gleichen Speicherort wie die Excel-Datei, das soll so sein und soweit klappt alles bestens.

Ist es möglich, das Skript so anzupassen, dass die PDF danach automatisch geöffnet wird?
Und wenn Ja, wäre sehr nett, wenn mir bitte jemand diese Anpassung vornehmen könnte.

Sub saveAsPDF()
Dim vntFile As Variant

vntFile = Application.GetSaveAsFilename(ThisWorkbook.Path & "" & ActiveSheet.Name & _
ActiveSheet.Range("AC6").Value & ".pdf", _
"PDF Dateien (*.pdf), *.pdf", Title:="Als PDF Speichern")

If vntFile False Then
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=vntFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End If
End Sub

Lieben Gruß
Silvio

:)

 

Hi Silvio,

ändere diesen Teil OpenAfterPublish:=False in diesen OpenAfterPublish:=True

 

Hallo Beverly,
vielen Dank für die schnelle Antwort!
So einfach ist es wenn man Ahnung hat.
Lieben Gruß und einen schönen Abend
Silvio