Listbox(Listekutusu) ta çoklu seçim yaptığımda sayfa 2 ye aktarma

[nighttorment]

Arkadaşlar benim sorum soldaki textbox ta çoklu seçim yaptığımda sayfa 2 ye aktarma yaptırmak istiyorum girdi aralığını sayfa 1 den seçiyorum hücre bağlantısı nı da sayfa 2 den seçiyorum ama sadece 1 satıra 0 yazıyor ben listeden seçtiğim isimleri sayfa 2 ye aktarmak istiyorum yardımlarınız için teşekkür ederim. Örnek ektedir.

 

[hamitcan]

Sub SecilenleriAktar()
    Sayfa3.Columns("a:d").Clear
    c = 1
    With ActiveSheet.ListBoxes("List Box 3")
        For i = 1 To .ListCount
         If .Selected(i) Then
            c = c + 1
            Sayfa3.Cells(c, 1) = .List(i)
         End If
        Next
    End With
End Sub