Imprimir en un solo .pdf todas las hojas seleccionadas VBA

Tengo este código funcionando:

Private Sub CommandButton1_Click()
'Por.Dante Amor
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) Then
            h = ListBox1.List(i)
            Sheets(h).PrintOut Copies:=1, Collate:=True
        End If
    Next
End Sub
Private Sub UserForm_Activate()
'Por.Dante Amor
    ListBox1.MultiSelect = 1
    ListBox1.ListStyle = 1
    For Each h In Sheets
        ListBox1.AddItem h.Name
    Next
End Sub
Sub abrir()
UserForm1.Show
End Sub

Lo que ocurre es que al seleccionar varias hojas para imprimir, las va guardando de manera independiente, un .pdf por cada hoja seleccionada. 

Quisiera modificar el código para que todas las hojas seleccionadas se guarden en un solo archivo .pdf y no en varios.