Resolvido pelo Basole. Vide Eventos KeyPress e Change: Private Sub TxtValor_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case KeyAs...

Décio, Obrigado pela ajuda. O problema é que preciso de função para usar em Formulário, em uma Caixa de Texto (TextBox). Pedro

Reinaldo, Obrigado! Funciona com On error resume next. Talvez apareça outra alternativa tratando dos valores repetidos e vazios.

Pessoal, Percebi que o erro não está relacionado à quantidade de ítens. As colunas A e B não permitem termos repetidos (seja letra ou número). Sem val...

Obrigado, Reinaldo. Segue o link: Primeiro execute a macro. Depois escreva "4" em B11 e tente executar pra ver o erro.