>>278
objsheet.Range("a1:a13").Address(1,1,1,1)

それか

Dim L(12) As String
Dim i As Long
Dim c As Range

With Worksheets("Sheet2")
Set c = Range(.Cells(1, 1), .Cells(1, 13))
End With

For Each x In c
ReDim Preserve L(i)
L(i) = x
i = i + 1
Next

ListBox1.List = L