Hallo,
teste mal:
Public Sub PDF_Export()
Dim objSheet As Worksheet, objActiveSheet As Worksheet
Set objActiveSheet = ActiveSheet
For Each objSheet In ThisWorkbook.Worksheets
If objSheet.Visible = xlSheetVisible Then Call objSheet.Select(Replace:=False)
Next
Call ActiveSheet.ExportAsFixedFormat(Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\PDF", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True)
Call objActiveSheet.Select
Set objActiveSheet = Nothing
End Sub