Macro para guardar pdf desde lista desplegable en forma general o individual

A los integrantes de este prestigioso foro, tengas buenas días, hace tiempo el amigo Dante Amor me ayudo con una macro, el cual permite realizar la impresión de boletas de pago pestaña BOLETAS (en grupo de 10, 1 por cada hoja) a una pestaña TRABAJADOR (plantilla) y lo que requiero si es factible hacer el mismo procedimiento desde una lista desplegable o quizás en la macro descrita en lineas al final se pueda mejorar.

He logrado llegar a capturar un solo nombre, y lo requiero es que aparezcan todos los nombres como la imagen inicial, pero mi problema esta que estos nombres proviene desde una pestaña PLANILLA en la celda BJ8 como registros únicos y esto son pasado a otra pestaña RESUMEN celda C1 (lista desplegable) y luego se imprimen las boletas sin ninguna problema, para lo cual adjunto la macro y quizás aca se pueda mejorar la macro adicionando alguna rutina que en forma masiva se guarde todos en pdf en forma general y se guarde nombre por nombre como la macro anterior descrita en líneas arriba.

Option Explicit

Sub Imprimir()
Dim pass As String, hoja As String
Application.ScreenUpdating = False
hoja = ("RESUMEN")
pass = "A"
ActiveSheet.Unprotect pass
Dim Lin As Long
Sheets("BOLETA").Select: Lin = 8
While Sheets("PLANILLA").Range("BJ" & Lin) <> ""
Sheets("RESUMEN").Range("C1") = Sheets("PLANILLA").Range("BJ" & Lin)
DoEvents
ActiveWindow.SelectedSheets.PrintOut _
Copies:=1, _
Collate:=True, _
IgnorePrintAreas:=False
Lin = Lin + 1
Wend
ActiveSheet.Protect pass
Application.ScreenUpdating = True
Sheets("MENU").Activate
Range("B8").Select
End Sub