Office: PDF speichern in Windows und Macintosh

Moin, ich möchte das aktive Blatt als PDF-Datei im Ordner wo die Arbeitsmappe liegt speichern.Unter Windows hatte ich es wie folgt gelöst:

Sub aktivesBlattToPdf()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\" & Range("F5").Value & Format(Date, "YYYYMMDD") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub

NUR wie ändere ich es das es jetzt unten Windows und MAC läuft ??? Hab von Mac null Plan....

Wer kann helfen ?

:)

 

Problem gelöst :-)

Sub aktivesBlattToPdf()
Dim PFADTRENNZEICHEN As String
PFADTRENNZEICHEN = Application.PathSeparator
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & PFADTRENNZEICHEN & Range("F5").Value & Format(Date, "YYYYMMDD") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub