Hi All,

Can anyone tell me, how to retrieve multiple rows from excel. I am trying to retrieve, multiple selected rows and display it in a listbox in VBA.

If two rows are selected "Activecell" normally retreive the first cell from the selected area. But, what i want is the whole rows (multiple rows) and display it in the listbox.

Thanks
Johnson

Try using Flexgrid instead of listbox

I generally use the following code for populating a list or combo box...

Sub MakeDynamicListBox()
    Dim myVsRow As Integer
    Dim myloop As Integer
    Dim myListItem As String
    Dim myIndex As Integer

    Range("A1").select
'set number of rows in list
    myVsRow = Range("A65000").End(xlUp).Row

'apply the list items to the combo-box
    For myloop = 1 To myVsRow
        myListItem = CStr(ActiveCell.Offset(myloop, 0).Value)
        ListBox1.AddItem myListItem
    Next
End Sub

hope this has been helpful

Mat

Thanks a lot for those information, but i found another way.

Regards
Johnson