Tengo un combo y selecciono un texto y seguido lo busco en un listview y me posiciono.

Private Sub TipoAlimento_Click() Este es el combo
Dim Alimento As String
Dim tItem As String
Dim I As Integer
Alimentación.SetFocus
Alimento = TipoAlimento.Text
For I = 1 To Alimentación.ListItems.Count
tItem = Alimentación.ListItems(I)
If tItem = Alimento Then
Set Alimentación.SelectedItem = Alimentación.ListItems(I)
Alimentación.HideSelection = False
EnsureVisible = True
Alimentación.Refresh
Exit For
End If
Next I
End Sub

El ListView tiene 400 registros, lo localiza marcando toda la línea. Cuando se trata de las 40 líneas primeras se ve el dato que busco pero cuando la línea es mayor que las 40 visibles no consigo visualizar donde he seleccionado.

Trabajo con Excel 2007.

Muchas gracias y un saludo