O que acontece é que vc esta fazendo uma referencia em cima de um intervalo ao inves de fazer em uma unica celula
O erro esta na linha
If login.Value = Sheets("Dados").Range("B2:B5").Value And senha.Value = procura Then
E a causa é o Range("B2:B5").Value
Na verdade vc precisa fazer um loop que vai verificar cada linha do seu cadastro e que possa verificar se o valor da textbox onde vc digita o usuario e este for localizado na planilha dados.
Marcelo Prudencio
Microsoft Excel Brasil no Facebook
"Começar já é a metade do caminho."
Autor Desconhecido
Simplifica que simples fica.
Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.
Postado : 28/10/2016 7:33 am