ActiveX Listbox return selected row number

[arnabmit]

I have lstPrev as an ActiveX Listbox. It has 10 rows of data. Once the user selects a row (single select) and presses the delete button, it should delete the corresponding row in dbTable.

I think I am making some stupid mistake in the logic here...

Sub DelRows()

    Dim i As Integer
    
    Set i = ActiveSheet.lstPrev.ListIndex + 1 'to ensure column headers are not deleted

    dbTable.ListRows(i).Delete

End Sub

 

[arnabmit]

Got the answer!

An integer doesn't need to be "Set".