ThisWorkbook.Nameでワークブックの名前

ネタ元