not sure, but maybe so
.... 'find the Id number Set findvalue = Sheet2.Range("F:F").Find(What:=cIDNumber, LookIn:=xlValues).Offset(0, -3) If findvalue Is Nothing Then MsgBox cIDNumber & " not found": Exit Sub' this line added 'add the database values to the userform ....