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