Обновить данные из списка

Question

Я хотел обновить запись из моего списка.

Показывает запись в ListBox (lstDisplay), когда я нажимаю на одну запись, эти записи отображаются в текстовом поле, где я могу начать их редактировать..

И затем мне нужно нажать кнопку Сохранить, чтобы сохранить изменения, однако я получаю сообщение об ошибке.

Пожалуйста, смотрите мой код.

Пожалуйста, смотрите скриншот снимок экрана

Private Sub cmdSave_Click()
Dim i As Integer
For i = 0 To Range("A65356").End(xlUp).Row - 1
If lstDisplay.Selected(i) Then
    Rows(i + 1).Select

 Sheet.Cells(i, 1) = txtSearch.Text
 Sheet.Cells(i, 2) = txtLname.Text
 Sheet.Cells(i, 3) = txtFname.Text
 Sheet.Cells(i, 4) = txtCourse.Value
 Sheet.Cells(i, 5) = txtYear.Value




End If

Next i
End Sub