TPV Muy práctico, pero no coinciden tipos al foco de usuario

[Martín Ruiz 3]

Estimados amigos del Foro:

Navegando por los aportes, dudas y problemas resueltos de nuestra querida página, encontré un TPV muy bueno que se adapta a mis necesidades para llevar el registro de una papelería; está realizado por Marco Antonio y todo bien, hasta colocarle los datos en la hoja de "Artículos", pues al intentar accesar me marca la siguiente leyenda en el formulario Login "Se ha producido el error '13' en tiempo de ejecución: No coinciden los tipos" Lo anterior al direccionar el foco al formulario TPV, exactamente al TexBox "Atiende" 

Cito la consulta y anexo el libro. Ya realice algunas adecuaciones al VBA, además de los datos ingresados a la hoja "Artículos". Disculpen ustedes mi novates en estos menesteres.

Agradezco de antemano la ayuda que me puedan otorgar para poder continuar con mi proyecto.

Private Sub Aceptar_Click()
Dim huser As Worksheet
Dim Ufila As Integer
Dim i As Long

Aviso = "Usuario/contraseña erróneo"
Set huser = Worksheets("Usuarios")
Ufila = huser.Range("A" & Rows.Count).End(xlUp).Row
'For x = 2 To Sheets("Usuarios").Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To Ufila
   If UCase(Usuario) = UCase(huser.Range("A" & i)) And _
      Trim(UCase(Contraseña)) = Trim(UCase(huser.Range("B" & i))) Then
      Aviso = ""
      Exit For
   End If
Next

If Aviso = "" Then
   DoEvents
   Me.Hide
   TPV.Atiende = huser.Range("A" & i) '(Aquí es donde presenta el error)
   TPV.Atiende.Locked = True
   If UCase(Usuario) <> "ADMIN" Then TPV.Show
End If
End Sub

PDT. No puedo subir el fichero por lo que trascribí el error

 

[Martín Ruiz 3]

Mil disculpas, aun sigo sin poder subir el archivo al foro. Lo anexo en el Drive:

https://drive.google.com/file/d/0ByLMtEnnNDR8SjhaQ1lhaFhQaG8/view?usp=sharing

Mil gracias por su apoyo.

[Antoni 5,169]

Modifica la columna E de las filas 449, 1850,  1890, 1892, 2770 de la hoja Artículos, ya que contienen el valor #¡VALOR!.

Para asegurar el tiro, añade al principio del procedimiento Buscar_Click(): On Error Resume next

[Martín Ruiz 3]

Excelente observación, como indiqué, ¡soy un novato en estos menesteres! Que bien por contar con expertos como ustedes y, en especial, tan desprendidos como usted, mi estimado Marco Antonio. Agradezco enormemente tu apoyo.

Recibe un gran abrazo y mi eterno agradecimiento.

Saludos a los demás compañeros y estamos en contacto. Doy por concluida mi duda.