Generar PDF de varias hojas

Tengo el siguiente código para generar un archivo PDF de la Hoja activa en Excel

Sub CreaPDF()

' GENERA UN ARCHIVO PDF DE LA HOJA ACTIVA

Application.ScreenUpdating = False
ActiveWorkbook.Save
Dim NombreArchivo, RutaArchivo As String

NombreArchivo = ActiveSheet.Name
RutaArchivo = ActiveWorkbook.Path & "\" & NombreArchivo & ".pdf"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=RutaArchivo, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
Application.ScreenUpdating = True

MsgBox ("SE HA GENERADO ARCHIVO PDF EXITOSAMENTE")

End Sub

Mi pregunta es la siguiente: deseo una macro que genere pdf de varias hojas a la vez y de manera separada, por ejemplo seleccionándolas desde un listbox en un formulario. ¿Es posible?