Bestandsnaam opvragen

[Verberkmoes]

Goedemiddag,
Ik wil met een Excel macro de bestandsnaam van het geopende bestand opvragen en in een cel zetten.
Ik kan zo snel de code hiervoor niet vinden.
Kan iemand me helpen.
Bij voorbaat dank,
Groeten,
Bert Verberkmoes

 

[Wigi]

Range("A1").Value = ThisWorkbook.Name

 

[Verberkmoes]

Bedankt!

Hartetelijk dank voor de snelle reactie.
Mijn vraag is volledig beantwoord.
Groeten,
Bert Verberkmoes