control activex de excel

[gabrieln42]

Buenas horas, me gustaria recibir orientación sobre un codigo que estoy implementando en excel. Tengo un documento que contiene tres hojas, en la hoja1 el formulario y opciones de ingreso de datos. En la hoja2 una lista de ciudades y en la hoja3 los datos de precios.

El problema se presenta cuando trato de usar un boton en hoja1 de Control Activex que evalua la lista de ciudades ubicadas en la hoja 2 y luego guarda una ciudad nueva.

Resulta que la busqueda no hace referencia a la hoja2 si no a la hoja1 y termina guardando el nuevo dato en la hoja2 pero con referencia al espacio en blanco de la hoja1.

El codigo:

Private Sub CommandButton5_Click()

'Solicita el dato

Nombre = InputBox("Ingresa Nueva Ciudad:")

' Buscar celda vacia

Dim i As Integer

i = 1 Do
i = i + 1

Loop Until IsEmpty(Cells(i, 2))

Cells(i, 2).Select

' Guarda en la lista

Worksheets(hoja2).Cells(i, 2).Value = Nombre

End Sub

Agradezco cualquier orientacion