Hi, Ive tried to change the control ListFillRange of a combobox that shows me the plans. I tried these so far:

[VBA]Private Sub Workbook_Open()
Dim lvRango As Range
Set lvRango = Sheets("Controls").Range("A3")
Range(lvRango, lvRango.End(xlDown)).Delete
Set lvRango = Sheets("Plans").Columns("A:A").SpecialCells(xlCellTypeConstants)
lvRango.Copy Sheets("Controls").Range("A3")
'Sheets("Planes").Controls("cbxCenterPlans").ListFillRange = Sheets("Controls").Range("A3").CurrentRegion.Address
Set lb = Sheets("Planes").Controls("cbxCenterPlans")
lb.ListFillRange = "Controls!" & Sheets("Controls").Range("A3").CurrentRegion.Address
End Sub[/VBA]

After having all the elements in the correct range i try to change the property of the combo box but it keeps showing me errors. I tried
[VBA]
Set lb = .Shapes("cbxCenterPlans")
lb.ControlFormat.ListFillRange = "Controls!" & Sheets("Controls").Range("A3").CurrentRegion.Address
[/VBA]

with the same results, thanks