Problem when deleting data

[Noz2k]

So I have my workbook, forms, macros etc all working as I want them too. Everything runs fine, until that is I delete all the made up data I was using to test the form.

When I try and add a record via the userform now, and click 'cmdsend' I get a error message saying "Run-time error '381': Could not set the List property. Invalid property array index"

I assume it's to do with the cbouniqueid.listindex but it worked before

 

[Noz2k]

Some additional information

It works fine if I leave 2 rows of data in the table.

Dim lngLastRow As Long
    lngLastRow = Cells(Rows.Count, "A").End(xlUp).Row
 
 
    cboUniqueID.List = Worksheets("Sheet1").Range("A3:A" & lngLastRow).Value

refers to the UniqueId.List

 

[Noz2k]

Could this have something to do with Sheet1 being protected on .activate?

ActiveWorkbook.Sheets("Sheet1").Activate
Sheets("Sheet1").UnProtect "Password"
Range("A3").Select
Dim lngLastRow As Long
    lngLastRow = Cells(Rows.Count, "A").End(xlUp).Row
 
 
    cboUniqueID.List = Worksheets("Sheet1").Range("A3:A" & lngLastRow).Value
      Unload Me

If when the I click debug on the error and hover over 'lngLastRow' it gives me the correct value, so I don't understand what is stopping it from working, when it works if there is data in row A3 and A4.

Anyone?

 

[Noz2k]

So I'm pretty sure that the problem is that effectively the .List cannot equal only 1 value, so when lngLastRow equals 3 the range = A3:A3.

How can I get around this?