what wrong here (listbox1.list have 4 sheet names)??
i need this code repeat all worksheet in listbox1 list
Error "Object required"
i need this code repeat all worksheet in listbox1 list
Code:
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"