Estou tentando fazer um form para se logar em uma planilha sendo que a planilha que guarda os dados de usuário e senha e a plan34 o que esta acontecendo e o seguinte Se eu Colocar por exemplo o Primeiro Usuário da planilha de cadastro Exemplo Paulo e sua receptiva senha tudo Ok mais se eu colocar o terceiro Usuário e sua receptiva senha ele encontra o usuário mais não a senha e mais se eu colocar o terceiro usuário e a primeira senha ele se loga, por que sera que isso esta acontecendo seque a rotina usada. deste de já agradeço a ajuda de todos.

Private Sub cmdEntrar_Click()
If txtLogin = "" Then
MsgBox "Entrada do nome do usuário obrigatória.", 60, _
("EEEEFM M.W HENRIQUE - CAIC")
Exit Sub
txtLogin.SetFocus
Else
If txtSenha = "" Then
MsgBox "Entrada de senha do usuario obrigadoria.", 60, _
("EEEEFM M.W HENRIQUE - CAIC")
Exit Sub
txtSenha.SetFocus
End If
End If

col = 1
lin = 2
While (Plan34.Cells(lin, col) <> txtLogin)
lin = lin + 1
If lin > 50 Then
MsgBox ("Usuário não esta cadastrado"), 60, _
("EEEEFM M.W HENRIQUE - CAIC")
txtLogin.Value = ""
txtSenha.Value = ""
txtLogin.SetFocus
Exit Sub
End If
Wend

Dim Senha As String
lin = 2
col = 2
Senha = Plan34.Cells(lin, col).Value
If txtSenha <> Senha Then
MsgBox ("Senha Invalida Tente Novamente!!"), 60, _
("EEEEFM M.W HENRIQUE - CAIC")
txtSenha.Value = ""
txtSenha.SetFocus
Exit Sub
Else
MsgBox ("Seja Bem Vindo " & txtLogin & " Tenha um Bom Dia de Trabalho"), 60, _
("EEEEFM M.W HENRIQUE - CAIC")
lin = 2
col = 1
While (Plan35.Cells(lin, col) <> "")
lin = lin + 1
Wend
Plan35.Cells(lin, 1) = txtLogin.Value
Plan35.Cells(lin, 2) = Date
Plan35.Cells(lin, 3) = Time
Application.Visible = True
Plan1.Visible = xlSheetVisible
Sheets("Plan1").Activate
ActiveWindow.DisplayWorkbookTabs = False
Hide
End If
End Sub