Public Sub CreatePDF(Name As String, Ws As Worksheet)
Dim strfile As String
Dim myFile As Variant
strfile = Name
myFile = Application.GetSaveAsFilename _
(InitialFileName:=strfile, _
FileFilter:="PDF Dateien (*.pdf), *.pdf", _
Title:="Speicherort auswählen (VWGS_Server)")
Ws.ExportAsFixedFormat Type:=xlTypePDF, fileName:= _
myFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub