Makronun olduğu Excel dosyasının adı?

[patdizz]

Merhaba arkadaşlar,

Basit bir sorum olacak :
Birçok Excel dosyası ile çalışırken (Aktif workbook sürekli değişiyor) makronun kayıtlı olduğu ana excel dosyasının adını nasıl bir kod satırı ile öğrenebilirim?

Teşekkürler.

 

[Mehmet Şahin]

Merhaba,
ThisWorkbook.Name
şeklinde deneyebilirsiniz.

 

[hamitcan]

Kod, açık olan Excel dosyalarında makro olup olmadığını sorgulamaktadır.

Sub MakroVarmi()
    Dim Wrk As Window
    For Each Wrk In Application.Windows
    With Wrk
        For i = 1 To Workbooks(.Caption).VBProject.VBComponents.Count
            k = k + Workbooks(.Caption).VBProject.VBComponents(i).CodeModule.CountOfLines
        Next
        If k > 0 Then MsgBox .Caption & " Dosyasında Makro Var"
        k = 0
    End With
    Next
End Sub

 

[patdizz]

Çok teşekkür ederim. İhtiyacım olan, sayın Dentex'in çözümü gibi bir satır idi ve problem çözüldü. Hamitcan beye de ayırca teşekkür ederim vakit ayırıp çözüm sunduğu için.