Wednesday's Forms Challenge...

[bfreescott]

Use the List property of the ListBox to write the contents of the SECOND column to a range.

Bonus points if you can accomplish the task without a loop.

 

[Fluff]

How about

Private Sub CommandButton1_Click()
   Dim Ary As Variant
  
   Ary = Me.ListBox1.List
   Range("A2").Resize(UBound(Ary)).Value = Application.Index(Ary, 0, 2)
End Sub