Tente algo assim no evento exit da textbox
If textbox1.value < 1900 and textbox.value > 2100 then
Msgbox "Valor Não Autorizado",vbcritical,"Atenção"
textbox1.value = ""
Textbox1.setfocus
End if
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 : 04/12/2017 3:21 pm