在指定区域中依据工作表中的文字标志创建名称。
expression.CreateNames(Top, Left, Bottom, Right)
expression 必需。该表达式返回一个 Range 对象。
Top Variant 类型，可选。如果为 True，则使用首行中的标志创建名称。默认值为 False。
Left Variant 类型，可选。如果为 True，则使用左列中的标志创建名称。默认值为 False。
Bottom Variant 类型，可选。如果为 True，则使用尾行中的标志创建名称。默认值为 False。
Right Variant 类型，可选。如果为 True，则使用最右列中的标志创建名称。默认值为 False。
如果未指定 Top、Left、Bottom 或 Right 之一，Microsoft Excel 将根据指定区域的形状猜测文本标志。
本示例用单元格区域 A1:A3 中的文字创建区域 B1:B3 的名称。注意，指定区域时必须包括那些含有名称文字的单元格，即便只是为单元格区域 B1:B3 创建名称。
Set rangeToName = Worksheets("Sheet1").Range("A1:B3")
rangeToName.CreateNames Left:=True