Op mijn computer met Windows Excel Office 365 werkt deze macro zonder problemen. Mijn klant heeft Windows / Excel 2016 en krijgt de onderstaande foutmelding. Ik kan de oplossing niet vinden. Alvast bedankt. Frank
Code:
Sub ExportkleinAlsPDF()
ActiveWorkbook.Unprotect
Sheets("Voorblad").Visible = True
Sheets("Voorblad").Calculate
Sheets("Teambalans 2").Visible = True
Sheets("TEAMPOTENTIEEL").Select
ThisWorkbook.Sheets(Array("Voorblad", "Teambalans", "Teambalans 2", _
"TEAMPOTENTIEEL")).Select
Calculate
Dim fileSaveName As Variant
fileSaveName = Application.GetSaveAsFilename( _
FileFilter:="PDF Files (*.pdf), *.pdf")
If fileSaveName <> False Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
fileSaveName, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
End If
Sheets("Voorblad").Visible = False
Sheets("Teambalans 2").Visible = False
ActiveWorkbook.Protect
Sheets("Menu").Select
End Sub