Problemas para generar un pdf con 3 hojas de excel

Tengo cuatro hojas en un libro de Excel: “Portada proyecto” “datos” “comparativo” y “ficha”
He creado la siguiente macro para que apretando un botón imprima todas las páginas menos la de ficha:
Sub imprimir()
'
' Macro2 Macro
'
'
Sheets(Array("Portada proyecto", _
"datos", "Comparativo" _
)).Select
Sheets("Comparativo").Application.Dialogs(xlDialogPrint).Show
End Sub
Cuando imprimo por impresora normal, no hay problema, el problema es cuando quiero generar un pdf que me crea tres pdf en lugar de uno.
Sabes porqué puede pasar esto????

También si se puede crear una macro para añadir un botón de CREAR PDF estupendo. Pdf creator está en ubicación pdfcmon o luego sale pdfcreator en e00

Muchas gracias