Hi all Dave Peterson helped me by writing this code but I need it to do a
little more and I cant seemto work it out.

What the code below does isshows the meeting that are coming up and copies
the information to another worksheet which I will use another way. But at
the moment it only copies the first cell.

The list's rowsource is a2:e65536 so I probably need to have the code copy
the whole line.

Any ideas would be appreciated.

Here is the code
Private Sub CommandButton1_Click()
Dim destCell As Range

With Worksheets("Popup")
Set destCell = .Columns.End(xlUp).Offset(1, 0)
End With

With ListBox1
If .ListIndex > -1 Then
destCell.Value = .List(.ListIndex)
End If
End With
Unload Me
messagebox.Show

End Sub
Thanks again

Greg