I get run time error 380" Could not set the Row Source property. Invalid Property Value.

[Saru]

Not sure how to fix this error. It is pointing to the below section of the code. Thank you!

Dim iRow As Long
    iRow = [Counta(Database!A:A)] 'identfying the last row to add
     
    .lstDB.ColumnCount = 12
    .lstDB.ColumnHeads = True
    .lstDB.ColumnWidths = "30,30,60,75,75,40,75,30,40,30,70,70"
    
        If iRow > 1 Then 'reference or assign rowsource of database to listbox
        .lstDB.RowSource = "Database!A2:L" & iRow
        Else
        .lstDB.RowSource = "Database!A2:L2"
        End If

 

[GWteB]

In a situation the iRow variable evaluates to 0 (zero) the Row Source property can not be set.

 

[Saru]

Are you saying that the data row is blank or 0 and that is why i get the error? Doesn't the heading count as 1 row? I didn't have the issue with the code previously. This is new. What is that i need to do? Thanks, Saru

 

[DanteAmor]

Check the name of the sheets, you must have a sheet with this name: "Database"
Check that the name does not have spaces to the left or to the right.

 

[Saru]

Hi Dante,
I did not make any changes to the worksheet name or to the listbox name. I reviewed the code once again and I was getting the same error. I decided to create a new workbook with same names and it worked fine. May be it was some sort of excel glitch. Who knows. The new workbook works fine. Thanks, Saru