MsgBox Prompt:="Click on the row you wish to delete", _
Title:="Delete row"

If ListBox1.ListIndex < -1 Then
ListBox1.RemoveItem (ListBox1.ListIndex)
End If

"Beeo" wrote:

Hello



I have a data-list (excel 2003) with records and the following code

RowNo = Application.InputBox(Prompt:="Click on the row you wish to
delete", Title:="Delete row", Type:=1 + 2)
Selection.ListObject.ListRows(RowNo).Delete

But it's not working. Help appreciated (I'm new to this so please be
nice :)

Tia / Beeo