Eu usei o equivalente numérico
Se lExcelVersion > 11 então
Tipo de ActiveSheet.ExportAsFixedFormat: =0, nome de arquivo: = _
“C:\Book1.pdf”, qualidade: =0, _ de IncludeDocProperties
: =True, IgnorePrintAreas: =False, OpenAfterPublish: =False
Terminar se