Pastes a list of all nonhidden names onto the worksheet, beginning with the first cell in the range.
expression.ListNames
expression Required. An expression that returns a Worksheet object.
Remarks
Use the Names property to return a collection of all the names on a worksheet.
Example
This example pastes a list of defined names into cell A1 on Sheet1. The example pastes both workbook-level names and sheet-level names defined on Sheet1.
Worksheets("Sheet1").Range("A1").ListNames