Why is this code not working

[Darren Smith]

Private Sub Add_Towbar_to_Jobcard_Click()

Dim r As Long
Dim i As Long
Dim wsDest As Worksheet
Set wsDest = ThisWorkbook.Sheets("Job Card Master")
wsDest.Activate

Sheets("Sheet2").Range("A2:O49").Copy wsDest.Range("A127")
r = 2

For i = 0 To Me.ListBox1.ListCount - 1
   If Me.ListBox1.Selected(i) Then
   wsDest.Cells(r, 1).Value = Me.ListBox1.List(i, 0)
   wsDest.Cells(r, 2).Value = Me.ListBox1.List(i, 1)
   wsDest.Cells(r, 3).Value = Me.ListBox1.List(i, 2)
   wsDest.Cells(r, 4).Value = Me.ListBox1.List(i, 3)
   wsDest.Cells(r, 5).Value = Me.ListBox1.List(i, 4)
  
   r = r + 1
   End If
Next

End Sub

 

[Darren Smith]

How is the listbox being populated?

Form a range on a spread sheet

 

[Fluff]

Yes, but how?
Are you using rowsource, list, additems?

 

[Darren Smith]

From a range in a spreadsheet

 

[Darren Smith]

Yes, but how?
Are you using rowsource, list, additems?

Using row source

 

[Fluff]

I cannot replicate the problems you are getting.
Make sure that the control source property of the listbox is empty.
Also it is better to populate the listbox using list, rather than rowsource. What is the range you are using for rowsource?

 

[Darren Smith]

I cannot replicate the problems you are getting.
Make sure that the control source property of the listbox is empty.
Also it is better to populate the listbox using list, rather than rowsource. What is the range you are using for rowsource?

=On Second sheet in workbook Range $A$1:$O$49

 

[Fluff]

Ok, clear the rowsource property & put this in the initialize event

Me.ListBox1.List = Sheets("Sheet2").Range("A2:O49").Value

 

[Darren Smith]

Ok Thanks for that. It worked

 

[Fluff]

You're welcome & thanks for the feedback.