the following code is for updating a textbox on my form, but when
enter data that is not in the list i get an error.

Private Sub txtBestellingArtikelCode2_Change()

ActiveWorkbook.Sheets("artikelen").Activate
Cells.Find(What:=txtBestellingArtikelCode2.Value
After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext
MatchCase:=False _
, SearchFormat:=False).Activate
txtBestellingArtikelOmschrijving2.Value = ActiveCell.Offset(0
1).Value

End Sub


what i want if it is possible that when the data is not found it wil
return a specific value to my second textbox.

can anybody help me

--
eyesonly196
-----------------------------------------------------------------------
eyesonly1965's Profile: http://www.excelforum.com/member.php...fo&userid=3419
View this thread: http://www.excelforum.com/showthread.php?threadid=54180