Copy all Entries from Form Control (not ActiveX) List Box to Worksheet

Hi Everyone,

I am trying to copy all the entries from Form Control (not ActiveX) List Box without any success.

The code, that I used to create the list boxes is given below:

ActiveSheet.ListBoxes.Add(Cells(nextRow, 3).Left, Cells(nextRow, 3).Top, Cells(nextRow, 3).Width, Cells(nextRow, 3).Height).Select
          With Selection
              .Name = Sheets("Sheet1").Range("D4").Value
              .Display3DShading = True

' Then I am populating the List Box like this:

If Len(Sheets("Sheet1").Range("A1").Value) <> 0 Then
.AddItem Sheets("Sheet1").Range("A1")
End If

Later (after populating the List Box), I need to copy all the entries from a concrete List Box : V1 - to worksheet cells; V2 - would like to populate check boxes according to the values copied.

Any help would be highly appreciated.