'supposing sheet18 is the sheet with row to delete
' you cannot remove individual item in a linked list
'so you will have to refresh the listbox
'by reapplying the listfillrange
Private Sub CommandButton1_Click()
Dim indexi As Long
indexi = ListBox1.ListIndex + 1
If indexi <> -1 Then
Sheet18.Rows(indexi).EntireRow.Delete
ListBox1.ListFillRange = "a:a"
End If
End Sub
Like this thread? Share it with others