Error 424 en tiempo de ejecución al imprimir

He creado la siguiente macro y la he asociado a un botón:
Sub Macro2()
'
' Macro2 Macro
'
'
   Sheets(Array("PORTADA PROYECTO", _
        "PRESTACIONES SEG. SOCIAL", "PROPUESTA PERSONAL ", _
        "DETALLE DE COBERTURAS Y PRIMAS", "PROTECCION DE DATOS")).Select
    Sheets("TARIFICADOR").Application.Dialogs(xlDialogPrint).Show.Activate
End Sub
Con esto consigo que me asocie las hojas que necesito que imprima y que me salga el menú de imprimir para poder elegir la impresora. Funciona bien e imprime bien pero me sale el siguiente error.
Microsoft visual basic se ha producido el error '424'en tiempo de ejecución: Se requiere un objeto
¿Me podrías dar alguna instrucción para que no salga ese error?
Muchas gracias