Automatically create names from values in cell

[andreashermle]

Dear Experts:

This simple code snippet automatically creates names from values in
the left column of a selection

Sub CreateNames()
Selection.CreateNames Left:=True
End Sub

The built-in functionality is: Formulas - Create from Selection -
Create names from values in the left column.

For the macro solution to work, one must select cells from at least
two columns. Hence this simple macro should be re-written so that the
current selection of cells ( cells have been selected from just one
column) automatically gets extended to the right. For example: Current
selection A2:A5. The code snippet for the extension of the selection
should extend the selection to A2:B5.

Help is much appreciated. Thank you very much in advance.

Regards, Andreas

 

[Dave Peterson]

I wouldn't use CreateNames as the macro name -- it looks way too much like the
..CreateNames method for a range.

Option Explicit
Sub MyCreateNames()
Selection.Columns(1).Resize(, 2).CreateNames Left:=True
End Sub

The .columns(1) tells excel to just look at the first column in the selection.

The .resize(, 2) tells excel to include the adjacent column.

 

[andreashermle]

I wouldn't use CreateNames as the macro name -- it looks way too much like the
.CreateNames method for a range.

Option Explicit
Sub MyCreateNames()
     Selection.Columns(1).Resize(, 2).CreateNames Left:=True
End Sub

The .columns(1) tells excel to just look at the first column in the selection.

The .resize(, 2) tells excel to include the adjacent column.

Hi Dave,

thank you very much for your greate support.

Regards, Andreas