listedeki dosyaları açma

[Gamma]

Merhaba aşağıdaki işlemi yapacak bir makro lazım acaba yardımcı olabilir misiniz? şimdiden çok teşekkür ederim.

dosyamda A1'den itibaren başlayarak A2, A3, ... bir klasörde yer alan dosyaların isimleri listelenmiş durumda (şu anda 24 adet dosya ismi listelenmiş)
Ben makronun sırasıyla bu listede yer alan dosyaları açmasını istiyorum, ta ki listenin sonuna gelinceye kadar.

Tekrar teşekkür ederim.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Sub dosyalari_ac()
dosyaadi = ThisWorkbook.Name
For a = 1 To [a1048576].End(3).Row
Workbooks.Open Filename:=Cells(a, "a")
Windows(dosyaadi).Activate
Next
End Sub