[VBA]Private Sub CommandButton_Remove_Click()
Dim i As Long
'change listbox name and sheet location to yours
i = ListBox_Items.ListIndex + 1
With ThisWorkbook.Sheets("Holidays")
.Rows.EntireRow(i + 1).ClearContents
End With
populateBox
End Sub[/VBA]
[VBA]Private Sub CommandButton_Remove_Click()
Dim i As Long
'change listbox name and sheet location to yours
i = ListBox_Items.ListIndex + 1
With ThisWorkbook.Sheets("Holidays")
.Rows.EntireRow(i + 1).ClearContents
End With
populateBox
End Sub[/VBA]