Use the .List property of the Listbox to add the data to the worksheet.
The size of the area that gets the data should be the same size as the .List.
(the .List is an array)...

With Worksheets("Sheet3")
.Range(.Cells(2, 1), .Cells(x, y)).Value = Me.Listbox1.List
End With

Then delete Column 2.
You may want to check for existing data in the destination cells or
clear all six columns before adding new data.
--
Jim Cone
Portland, Oregon USA




"LaDdIe"

wrote in message
Hi
How can I tranfer the contents of a mutil-column listbox1 (six columns) to
sheet3.

I wish to transfer data in columns 1,3,4,5 & 6 only to sheet3 starting at A2

Once this data is transfered I wish to email this data, unless there is a
way to transfer the data directly into the body of an email?

Any Idea's please