Exportar a PDF

[Daniel_E]

Actualmente estoy utilizando esta pequeña macro 

Sub PDF()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\prueba.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

Pero quisiera poder realizar lo siguiente:

-El archivo PDF se genere con el mismo nombre del libro de excel 

-El archivo PDF se guarde en la misma ruta del libro de excel

-El archivo PDF y Excel queden cerrados.

Siempre gracias por su tiempo,

Saludos

Daniel,

[LeandroA]

 

Sub PDF()
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") - 1), Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    ThisWorkbook.Save
    Application.Quit
    'ThisWorkbook.Close True
End Sub

[Daniel_E]

Gracias por tu pronta respuesta y solución @LeandroA

Saludos,

Daniel