Listbox multiselect ile seçilen sayfaları aktarma

[vardar07]

Merhabalar. Arkadaşlar Halit Bey'in çalışmasından alıntılarla Listbox multiselect ile sadece seçilen sayfaları aktarmaya çalışıyorum. Ancak

n = 0
For i = ListBox1.ListCount - 1 To 1 Step -1
If ListBox1.Selected(i - 1) = True Then
ReDim Preserve myArray(n)
myArray(n) = i
n = n + 1
End If
Next
Sheets(myArray).Select
Sheets(myArray).Copy After:=Workbooks(dosya_adı).Sheets(1)
Windows(dosya_adı).Activate

kısmında gerekli mantığı kuramadım.

 

[halit3]

kod:

n = 0
For i = ListBox1.ListCount To 1 Step -1
If ListBox1.Selected(i - 1) = True Then
ReDim Preserve myArray(n)

MsgBox ListBox1.List(i - 1, 0)
myArray(n) = ListBox1.List(i - 1, 0)
n = n + 1
End If
Next

 

[vardar07]

kod:

n = 0
For i = ListBox1.ListCount To 1 Step -1
If ListBox1.Selected(i - 1) = True Then
ReDim Preserve myArray(n)
'MsgBox ListBox1.List(i - 1, 0)
myArray(n) = ListBox1.List(i - 1, 0)
n = n + 1
End If
Next
[COLOR="Blue"]Sheets(myArray).Select
Sheets(myArray).Copy After:=Workbooks(dosya_adı).Sheets(1)[/COLOR]

Çok teşekkürler üstad elinize beyninize sağlık.
Not: Mavi satırları kullanmak isteyenler için ekledim.