Below is my code for delete button
to delete data in data grid list box
thank you very much in advanced
Private Sub cmdbDLT_Click() Dim i As Integer Dim wss As Worksheet For Each wss In ActiveWorkbook.Sheets For i = 1 To Range("A600").End(xlUp).Row If Cells(i, 1) = ListBox1.List(ListBox1.ListIndex) Then Rows(i).Select Selection.Delete End If Next i Next wss End Sub