Useing Listbox value for loop

[backup69]

what wrong here (listbox1.list have 4 sheet names)??
i need this code repeat all worksheet in listbox1 list

Dim ws As Worksheet
For Each ws In ListBox1.List(ListBox1.ListCount - 1)
        source1 = Label1.Caption
        Rows(source1).Select
        Selection.Copy
        dest = Label2.Caption
        Rows(dest).Select
        Selection.Insert Shift:=xlDown
Next

Error "Object required"

 

[Joe4]

I have never tried to use ListBox in this way, so I don't even know if it is possible, however I will say this. Whenever you use a "For Loop", you usually need to enter a range of values. For example:

Dim cell as Range
For each cell in Range("A1:A100")

This tells the code to loop through all the cells in Range A1:A100.

If I understand it correctly, it appears that List(ListBox1.ListCount - 1) may not be correctly populating a range of worksheets. Even if the methodology is right, it appears it would only be referencing one sheet.

 

[backup69]

TY for explain this metod. Listbox return only sheet names like Sheet1 Sheet2 Sheet3
i found solution

For i = 1 To ListBox1.ListCount
With Worksheets(ListBox1.List(i - 1)).Activate
        source1 = Label1.Caption
        Rows(source1).Select
        Selection.Copy
        dest = Label2.Caption
        Rows(dest).Select
        Selection.Insert Shift:=xlDown
    End With
Next
End If
End Sub