Listbox Problem

[browie]

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

 

[Bob Phillips]

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]

Thanks will try it now

Greg

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]

Bob

How can it be changed to delete the whole row.
sorry I just noticed I wrote it as a1:a1000 where it should be e1000

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


Thanks in advance
Greg

 

[Bob Phillips]

Private Sub CommandButton2_Click()

Worksheets("Messages").Range("A2").Offset(ListBox1.ListIndex).Entirerow.Dele
te
End Sub


--

HTH

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

 

[browie]

Thanks Bob works Great

Greg

Private Sub CommandButton2_Click()

Worksheets("Messages").Range("A2").Offset(ListBox1.ListIndex).Entirerow.Dele
te
End Sub


--

HTH

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