zoeken met combobox

[Ben]

Heb onderstaande vba code zoekfunctie deze werkt wel echter bij een niet voorkomen nummer code
91 tijdens uitvoer.
wat doe ik Fout????
[SQL] Private Sub ComboBox1_Change()
Dim oRng As Range
Set oRng = ThisWorkbook.Sheets(1).Cells.Find(what:=ComboBox1.Value, lookat:=xlWhole)
TextBox1.Value = oRng.Offset(0, -1).Value
TextBox2.Value = oRng.Offset(0, 1).Value
TextBox3.Value = oRng.Offset(0, 2).Value
TextBox4.Value = oRng.Offset(0, 3).Value
TextBox5.Value = oRng.Offset(0, 4).Value
End Sub
[/SQL]

groetjes Ben

 

[sylvester-ponte]

na regel 3 moet komen:
if oRng is nothing then exit sub
of verzin iets anders achter then

 

[Ben]

Dank je wel Sylvester