Makro diğer dosyada işlem yapmıyor

[can kanak]

Merhaba.
Bir klasör içinde birtane ana dosya var. Bu dosyada tüm makrolar kayıtlı.
Klasör içindeki diğer dosyaları açıp, ana dosyadaki B makrosu sırasıyla herbirinin A1 hücresine işlem tamam yazıyor.
Ancak aşağıdaki kodda ana dosyadaki B makrosu yanlış bir şekilde ana dosyada çalışıyor. Diğer dosyalar üzerinde çalışması gerekiyordu.
Yardımınızı rica ediyorm. Okuduğunuz için teşekkür ederim.

<code>

Sub A()

    Dim currentWb As Workbook

    Dim otherWb As Workbook

    Dim folderPath As String

    Dim otherFilePath As String

    Set currentWb = ThisWorkbook

    folderPath = currentWb.Path

    Dim fileName As String

    fileName = Dir(folderPath & "\*.xlsx")

    Do While fileName <> ""

        Dim currentFileName As String

        currentFileName = currentWb.Name

        If fileName <> currentFileName Then

            otherFilePath = folderPath & "\" & fileName

            Set otherWb = Workbooks.Open(otherFilePath)

            otherWb.Activate

            Application.Run "'" & currentWb.Name & "'!MacroB"

            ' otherWb.Close SaveChanges:=True

        End If

        fileName = Dir

    Loop

    currentWb.Activate

End Sub<code>

 

[okanaytimur]

Makronun bulunduğu dosyayı PERSONAL.xlsb adıyla "C:\Program Files\Microsoft Office\root\Office16\XLSTART" adresine kaydederseniz her exceli çalıştırdığınızda bu makroları kullanabilirsiniz. Kişisel Makro Çalışma Kitabı diye aratırsanız daha çok sonuç alırsınız.

 

[can kanak]

Cevap için çok teşekkür ederim.