Exporting 2 Column Listbox to Separate Worksheet

[rookie2145]

favorite ​

I'm trying to export a 2 column list box to a new worksheet. I want to display each column in the new worksheet. This needs repeating twice as there are 3 listboxes. The user will select the desired row in the listbox and then press a separate 'confirm' command button. I have written the following code that will export only the first column of each listbox. I have used the RowSource to make the listbox double columned. Any Help is greatly appreciated. <code style="margin: 0px; padding: 0px; border: 0px; font-family: Consolas, Menlo, Monaco, 'Lucida Console', 'Liberation Mono', 'DejaVu Sans Mono', 'Bitstream Vera Sans Mono', 'Courier New', monospace, sans-serif; white-space: inherit;"> Private Sub ConfirmBtn_Click() Dim emptyRow As Long Sheet2.Activate emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1 Cells(emptyRow, 1).Value = SRCLstBox.Value Cells(emptyRow, 3).Value = BERLstBox.Value Cells(emptyRow, 5).Value = SNKLstBox.Value End Sub</code>

<tbody style="margin: 0px; padding: 0px; border: 0px;">
</tbody>