Named Ranges are those that are created manually by selecting a cell or a group of cells and giving a name in the Name Box. They can also be created/edited/deleted from Formulas >> Name Manager.

Its a simple 1 line code to extract all named cells in an Excel Workbook.

Code:
ThisWorkbook.Worksheets(1).Range("$A1").ListNames