He utilizado el equivalente numérico
Si lExcelVersion > 11 entonces
Tipo de ActiveSheet.ExportAsFixedFormat: =0, nombre de fichero: = _
“C:\Book1.pdf”, calidad: =0, _ de IncludeDocProperties
: =True, IgnorePrintAreas: =False, OpenAfterPublish: =False
Terminar si