Açık dosyalardan bilgi alma

[merakli_72]

Mrb,
Disk üzerinden açılan değilde bir uygulamanın oluşturduğu hafıza da 4 adet excel kitabı var bunlar disk üzerine kayıtlı değil, açık olan başka bir excel kitabında aşağıdaki makro yardımıyla bu açık 4 kitaptaki, verileri kendisine kopyalamak istiyorum;

Sub Acik_Kitaplardaki_Bilgileri_Yaz()
Dim i As Byte
Dim Kitap As String

Kitap = "Kitap"
For i = 1 To 4
Sheets(i + 3).Select
Cells.Clear

Kitap = Kitap + Trim(Str(i))
Windows(Kitap).Activate
Cells.Copy

Windows(ThisWorkbook.Name).Activate
ActiveSheet.Paste
Application.CutCopyMode = False
Next

End Sub

fakat
Windows(Kitap).Activate satrında
"Subscript out of range " hatası veriyor, sanırım dosyalar diske kayıtlı olmadığından dolayı, dosyaları diske kaydetmeden bu problemi çözebilirmiyiz

Teşekkürler