Lista desplegable con validación de datos

Vi este post y estoy haciendo algo similar; cuando copie el código me marca un error.

Sub CopiaCeldaConValidacion()

'Por.Dante Amor
Set l1 = ThisWorkbook
Set h1 = l1.ActiveSheet
Set l2 = Workbooks("Datos Sheet time")
Set h2 = l2.Sheets("Hoja2")
'
Set ad = ActiveCell.SpecialCells(xlCellTypeAllValidation)
If Not Intersect(ActiveCell, ad) Is Nothing Then
b = ActiveCell.Validation.Formula1
h1.Range(ActiveCell.Address).Copy h2.Range(ActiveCell.Address)
h1.Range(b).Copy h2.Range(b)
End If
End Sub

Cuando abro el archivo me sale un error; y al dar depurar me marca error en la línea

Set l2 = Workbooks("Libro11") donde coloco el nombre de la hoja.

Ademas; por favor si me puedes indicar como hago para que de la lista despegable cuando haga ala selección y me muestre el resultados pueda fraccionar los nombres y colocarlos en hojas diferentes.

Ej en la lista desplegable tenemos 30 personas, la idea es que me muestre cuando escojo una de POR departamento en la hoja respectiva para el cargo (Nombre, hoja Contabilidad).