Thanks tstav for the solution. In the mean time , yesterday night, after repeated trials I finally solved the error, just added this lines:
If Range("A" & i + 1) = "" Then
ComboBox1.ListIndex = 0
Else
ComboBox1.ListIndex = i - 1
End If
for this code:
Private Sub CommandButton1_Click()
Dim Found As Boolean
Checkname = ComboBox1.Value
Found = False
i = 1
Do
EmployeeName = Trim(ThisWorkbook.Sheets("Sheet1").Range("A" & i).Value)
If EmployeeName = Checkname Then
ThisWorkbook.Sheets("Sheet1").Range("A" & i).Select
Found = True
ActiveCell.Offset(0, 1).Value = TextBox1.Value
ActiveCell.Offset(0, 2).Value = TextBox2.Value
ComboBox1.ListIndex = i - 1
End If
i = i + 1
Loop Until ((EmployeeName = "") Or (Found = True))
'ComboBox1.SetFocus
End Sub