Não deu certo ele apenas buscou onde esta o numero que informei não o restante das informações dos dados. A rotina completa ficou assim: Private Sub ...

Como ficaria? Meu codigo esta assim: Private Sub TextBoxGAD_AfterUpdate() Dim intervalo As Range Dim texto As String Dim GAD As Long Dim mensagem ...

Bruno muito bom!! Funcionou perfeitamente consegui minha planilha de volta!! Obrigado!!