Listbox no me deja elegir nombre del listado.

Para Dante Amor

Te molesto por los siguiente, tenia un código que me hace una búsqueda de clientes y podía elegir el que quería sin importar el orden que los tenia en la lista.. Código original.

Private Sub CommandButton2_Click()
    Cuenta = Me.ListBox1.ListCount
    For i = 0 To Cuenta - 1
        If Me.ListBox1.Selected(i) = True Then
            ActiveSheet.Range("G4").Value = Me.ListBox1.List(i)
        End If
    Next i
    Unload Me

Luego te pedí para que me grabe en todas las hojas y me pasaste este código. Pero el problema es que ahora me toma el primer nombre de la lista . Por ejemplo si pongo la letra r y quiero elegir el segundo nombre que sale. Me sale el primero. Y esto en el otro código me funciona bien.

Private Sub CommandButton2_Click()
    If ListBox1.ListIndex = -1 Then
        MsgBox "Selecciona un registro del listbox"
        Exit Sub
    End If
    For Each h In Sheets
        If h.Visible = -1 Then
            h.Range("G4").Value = ListBox1.List()
        End If
    Next
    Unload Me
End Sub