Increase the list fill range with vba

[dpaton05]

How do I increase the list fill range so that when I add items to my list, a combo box that has a list of the items in it is updated automatically. The Listfillrange property of my combo box is YPNames!$A$2:$A48 but I want it to be A2 to the bottom of the list on YPNames.

 

[dpaton05]

but that is what my combobox is called

 

[My Aswer Is This]

I will move on since I see your getting help here from others.

 

[dpaton05]

Thanks for your help

 

[Michael M]

Dim cboYP As ComboBox

 

[dpaton05]

I already tried that one and I get permission denied

Sub AddNameList()
    Dim Lastrow As Long, cboYP As ComboBox
    Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
    Tracker.cboYP.List = Range("A2:A" & Lastrow).Value
    'With Worksheets("Tracker")
        '.cboYP.List = YP.Range("A1:A" & .Range("A" & .Rows.Count).End(xlUp).Row).Value
    'End With
    
End Sub

and it highlights this line

Tracker.cboYP.List = Range("A2:A" & Lastrow).Value

 

[Michael M]

Have you tried
Is lastrow reffering to the correct row ??

Sheets("Tracker").cboYP.List = Range("A2:A" & Lastrow).Value

 

[dpaton05]

I was missing some code

Sub AddNameList()
    Dim Lastrow As Long, cboYP As ComboBox
    Lastrow = YP.Cells(Rows.Count, "A").End(xlUp).Row
    Tracker.cboYP.List = Range("A2:A" & Lastrow).Value
    'With Worksheets("Tracker")
        '.cboYP.List = YP.Range("A1:A" & .Range("A" & .Rows.Count).End(xlUp).Row).Value
    'End With
    
End Sub

Using this, last row is correct but I get the permission denied error with this row being highlighted.

Tracker.cboYP.List = Range("A2:A" & Lastrow).Value

 

[dpaton05]

.

 

[Michael M]

A runtime error 70 indicates you are accessing the same names object twice in your code

 

[dpaton05]

I have no idea, but I have to go now.