This page has moved to
https://www.relief.jp/docs/excel-vba-get-active-wokbook-name.html
.