CreateNames Method
Creates names in the specified range, based on text labels in the sheet.
expression.CreateNames(Top, Left, Bottom, Right)
expression Required. An expression that returns a Range object.
Top Optional Variant. True to create names by using labels in the top row. The default value is False.
Left Optional Variant. True to create names by using labels in the left column. The default value is False.
Bottom Optional Variant.True to create names by using labels in the bottom row. The default value is False.
Right Optional Variant.True to create names by using labels in the right column. The default value is False.
Remarks
If you don’t specify one of Top, Left, Bottom, or Right, Microsoft Excel guesses the location of the text labels, based on the shape of the specified range.
Example
This example creates names for cells B1:B3 based on the text in cells A1:A3. Note that you must include the cells that contain the names in the range, even though the names are created only for cells B1:B3.
Set rangeToName = Worksheets("Sheet1").Range("A1:B3")
rangeToName.CreateNames Left:=True