Can anyone tell me why the following code will not place the contents of
column 1 in the active cell, and column 2 in the cell to the right of the
active cell? The ListBox has 7 columns.



Private Sub CommandButton3_Click()

Dim rng

Set rng = Cells(ActiveCell.Row, 1)

rng(1, 0).Value = ListBox1.List(ListBox1.ListIndex, 0)
rng(1, 1).Value = ListBox1.List(ListBox1.ListIndex, 7)

Unload EmployeeList

End Sub