Macro interactiva

hola, Carlos !

Tengo un listado con varias referencias de productos.
Querria hacer una macro que... pidiera al usuario que seleccionase varias referencias (pinchando en las celdas).
La seleccion se terminaria cuando el usuario pulsase la tencla "Enter". Es posible hacer esto?

usa el 'inputbox' =>del objeto 'application'<= [que NO es lo mismo que un 'inputbox' de vba]
te paso un ejemplo al final de este mensaje ;)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

en un modulo de codigo 'normal' ==Sub X_macro()
'[... otras lineas de tu codigo ...]
Dim Celda As Range, Seleccion As Range
On Error Resume Next ' por si las dudas '
Application.ScreenUpdating = True ' el 'refresco' de la pantalla debe estar 'activo' '
Set Seleccion = Application.InputBox( _
Prompt:="Selecciona la/s celda/s de referencia...", _
Title:="En espera de la seleccion...", _
Default:=ActiveCell.Address, _
Type:=8) ' Type:=8 'significa' que 'se espera' un objeto rango seleccionado ->por el usuario<- '
On Error GoTo 0 ' liberamos la omision de errores '
If Seleccion Is Nothing Then
Exit Sub ' u otras instrucciones '
Else
For Each Celda In Seleccion
'[... pon aqui las instrucciones 'validas' ...]
Next
End If
'[... otras lineas de tu codigo ...]
End Sub