Dosyanın kendi dizinini bulmak

[BeyazGölge]

Merhabalar herkese

sitede bayağı bi aradım ama bulamadım. Eğer daha önce verildiyse kusura bakmayın.
Soru şu :
Aktive olan çalışma kitabının dizin yolunu gösteren bir kod var mı ? Benim bildiğim kadarıyla olması lazım ama bulamıyorum

Herkese iyi çalışmalar

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kod aktif dosyanın yolunu A1 hücresine yazar.

Sub AKTİF_DOSYA_YOLU()
    [A1] = ThisWorkbook.Path
End Sub

 

[BeyazGölge]

Cost_control Teşekkür ederim. Buna benzer bir sürü kod denemiştim bit türlü tutturamamaştım