On 17 Jul., 22:00, Dave Peterson wrote:
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.

On 07/17/2010 14:18, andreashermle wrote:





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- Zitierten Text ausblenden -

- Zitierten Text anzeigen -

Hi Dave,

thank you very much for your greate support.

Regards, Andreas