اگر مدت زمان زیادی از اکسل استفاده کردهاید، بدون شک میدانید که میتوانید نامهایی را در کاربرگهای خود تعریف کنید که به سلولها و محدودههای مختلف سلولها اشاره میکنند. حتی می توانید نام هایی را تعریف کنید که به ثابت ها و فرمول ها اشاره می کنند. (قابلیت نامگذاری اکسل واقعاً بسیار مفید است.)
همانطور که در حال توسعه ماکروها هستید، ممکن است تعجب کنید که آیا راهی برای بازیابی لیستی از نام های تعریف شده در یک کاربرگ وجود دارد یا خیر. اگر به یاد داشته باشید که نامهای تعریفشده در مجموعه نامها که متعلق به شی Workbook است، در واقع بسیار آسان است. با در نظر گرفتن این موضوع، میتوانید از کد زیر برای کنار هم قرار دادن یک آرایه متغیر که شامل همه نامهای یک کتاب کار است استفاده کنید:
Dim NamesList()
Dim NumNames As Integer
Dim x As Integer
NumNames = ActiveWorkbook.Names.Count
ReDim NamesList(1 To NumNames)
For x = 1 To NumNames
NamesList(x) = ActiveWorkbook.Names(x).Name
Next x