Нет, это тут я написал. Там ошибки нет.
Решил проблему.
Было так:
Private Sub Form_Open(Cancel As Integer)
Список.RowSource = "..."
Список.Selected(Список.ListCount - 1) = True
End Sub
Убрал
Список.Selected(Список.ListCount - 1) = True
оттуда, в другое место, а именно в Private Sub Список_GotFocus(). Теперь все работает.