Populate activeX comboboxes on different generated sheets (Excel 2007) - vba

Question

i'm a beginner and it's been days since i'm looking for a solution in vain, here's my issue:
In my excel file i should generate different sheets with a macro (already done).
Now on a specified column "L" on all of these generated sheets (starting from sheet number 9), i need an activeX combobox that would contain values brought from un unlimited column(A) of sheet(6).
I started by getting the values by adding values <> "" and storing them in an array.
it's not working, it's all messy, can someone please correct my code and help me, i'd appreciate any help .. thank you in advance
Option Explicit
Sub PicklistCopy()
Dim Nbre As Byte, Arr(), Liste As String, Cptr As Byte
Dim Current As Worksheet
Dim strSearch As String
Dim aCell As Range
strSearch = "Pick List Name"
For Each Current In Worksheets
Set aCell = Rows(1).Find(What:=strSearch, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
'copy pl values in an array
With Sheets("Pick Lists")
Nbre = Application.CountA(.Range("MyPL"))
ReDim Arr(1 To .Range("MyPL").Count)
Arr = Application.Transpose(.Range("MyPL"))
End With
'Get values diff from null
For Cptr = 1 To UBound(Arr)
If Arr(Cptr) <> "" Then Liste = Liste & Arr(Cptr) & ";"
Next
Liste = Left(Liste, Len(Liste) - 1)
With ActiveSheet.Range("L2:L4").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=Liste
.IgnoreBlank = True
.InCellDropdown = True
End With
ActiveSheet.Range("L2:L4") = ""
Next
End Sub

Answer 1

I think what you are adding is Data Validation dropdown and not a regular dropdown. Below is my simple code to the the list under the validated cell.
Sub AddMyPl()
Dim ws As Worksheet
Dim strSearch As String
Dim aCell As Range
strSearch = "Pick List Name"
'This will loop thru my sheets in my workbook.
For Each ws In ActiveWorkbook.Worksheets
'skip the sheet that contains mylist
If ws.Name <> "mylist" Then
'get last row # in L column.
LastR = ws.Cells(Rows.Count, "L").End(xlUp).Row
'add validation from MyPL list to cells
With ws.Range("L2:L" & LastR).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=MyPL"
.IgnoreBlank = True
.InCellDropdown = True
End With
End If
Next ws
End Sub
I have 4 sheets. 'mylist' sheet contains MyPL range with the items for my dropdown. The loop will check all sheets which names is not "mylist" then will add the validation dropdown to range L2:L4.
Modify as needed.