I am try to get this to work, but with no luck
listbox is set with 3 columns and columnheader is true
Private Sub UserForm_Activate() Dim lrow As String lrow = Sheet1.Range("A" & Sheet1.Rows.Count).End(xlUp).Row ListBox1.RowSource = Range("A2:C" & LastRow).Value End Sub
Last edited by CobraLAD; 04-10-2013 at 02:08 AM.
Ok got it to work
Dim lrow As String lrow = Sheet1.Range("A" & Sheet1.Rows.Count).End(xlUp).Row ListBox1.RowSource = "A2:C" & lrow
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks