Çözüldü windows.activate formülü kullanmak

Makronun başında tanımlamış olduğum bir excell dosyasını Windows.activate formülü ile çağıramıyorum.
Makrom şu şekilde


Sub Cizelge()
'
' Cizelge Makro
'

Dim Kisi, Cizelge, Kayıtsayısı, Satır, Kisidosya As Variant
'
' Tanımlamalar
Cizelge = ActiveWorkbook.Path & "\Yıllık Ödeme Çizelgesi.xlsm"

Kayıtsayısı = Sheets("Listeler").Cells(Rows.Count, "B").End(xlUp).Row
For Satır = 6 To Kayıtsayısı
Kisi = Worksheets("Listeler").Range("B" & Satır)
Kisidosya = ActiveWorkbook.Path & "\" & Kisi & ".xlsx"

'ilk kişinin dosyasını açtırıyorum

Workbooks.Open Kisidosya
Worksheets("2019").Select
Range("B4:AD4").Select
Selection.Copy
Windows("Yıllık Ödeme Çizelgesi.xlsm").Activate
Sheets("Ana Sayfa").Select
Range("B400").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select

ActiveSheet.Paste

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False



Windows(Kisidosya).Activate

bu son formül ile zaten açık olan kişidosya ya geçmek istiyorum.
bu formüldeki Kişidosya yazısı üzerine geldiğimde c:\at-mc\şahsi dosyalar\Ali AK.xlsx tanımlı olarak görüyorum ancak formül çalışıp zaten açık olan Ali AK dosyasına geçiş yapamıyorum


Worksheets("Ana Görünüş").Select
Range("B2").Select
ActiveWorkbook.Save
ActiveWorkbook.Close



Next Satır

End Sub


Yardımcı olabilecek hocam var mı acaba ?
Şimdiden teşekkür ederim.

Workbooks.Open Kisidosya dan sonra aşağıdaki satırı ekleyip deneyiniz.
kisidosya = ActiveWorkbook.Name

Teşekkür ediyorum
Şimdi dosyam istediğim gibi çalıştı. Hatta bir kaç geliştirici formül daha ekledim.
Ellerinize sağlık.