Just a little bit more on that, Sorry I didn't explain too well, I need it
to copy the whole line. The listbox's rowsource is a2:e65536

Thanks again

Greg
"Greg B" wrote in message
...
Thanks Dave will give it a go

Greg
"Dave Peterson" wrote in message
...
Maybe...

Private Sub CommandButton2_Click()

dim destCell as range

with worksheets("Popup")
set destcell = .cells(.rows.count,"A").end(xlup).offset(1,0)
end with

with listbox1
if .listindex -1 then
destcell.value = .list(.listindex)
end if
end with

end sub

Greg B wrote:

Hi all how can I change the code below to copy the selected line from
the
listbox and copy it to a sheet called popup. The code I received from
someone before workgreat in removing a message from another userform
but
I
would like to change it a little.

Private Sub CommandButton2_Click()



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

End Sub

Thanks again

Greg

--

Dave Peterson