Private Sub CommandButton2_Click()
Worksheets("Messages").Range("A2").Offset(ListBox1 .ListIndex).Delete
End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)


"browie" wrote in message
...
I have a list box which I have set up which runs a message bank. I would
like it to have the ability to delete the sected message from the
worksheet.
How can I do this?

userform name is "splash"

listbox1 its rowsource is messagesa2:a1000
and the button i wish to use to delete is commandbutton2

any help with the code would be great

Thanks

Greg