VBLookup on Combobox1 - ERROR

[Bryan123]

Hi,

In need of your help. Cant seem to move forward on this problem. I have a combobox with a list of emp ID's, when I choose one from the list, it should populate an info to the textbox(workstream) but to no avail. Alwas goes to the error "not found". Please see attached

Private Sub Combobox1_Change()
Dim rng as range
set rng = worksheets("LRS sampling").range("A2:L200")
On Error Resume Next
workstream.value = application.worksheetfunction.vlookup(combobox1,Rng,3,False)
If Err.Number <> 0 Then workstream.value = "not found"
THanks

Bryan

 

[Bryan123]

Hi Fluff, thank you very much. my problem is now resolved.

 

[Fluff]

Glad we could help & thanks for the feedback