Lesezeichen von Excel nach PDF

Sub Speichern_PLC()
Dim dialog As Object
Dim pfad As String
Dim name As String
Dim datei As String
Dim wks As Worksheet
Range("G1") = "PLC_" & Range("F5") & "_" & Range("J5")
Range("G1:L2").Select
ActiveCell.Replace What:="/", Replacement:="-", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Find(What:="/", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
pfad = "C:\Users\A690666\Desktop\"
name = "geplante "
datei = ActiveSheet.Range("G1")
For Each wks In ActiveWindow.SelectedSheets
With wks
Sheets(Array("PLC-Tabelle", "PLC-Baum 2")).Select
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pfad & name & datei & ".pdf", Quality:= _
xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End With
Next wks
Sheets("eMail_Montage System").Activate
End Sub