getting type mismatch using list listindex

[dmcgov]

this used to work, but i must have done something to make it stop. not sure what it is.

when i run the button on the addvendor sheet and type in the search box, all appears to be fine. but when i pick the item in the listbox, i get a type mismatch 13, run time error on this line:

tb_Name.Value = sht.Cells(.List(.ListIndex, 1), 4)

when i type this in the immediate window, i get the same error: ?sht.Cells(.List(.ListIndex, 1), 4)

i checked the sht.name and it is correct. i checked the activesheet.name and it is correct.

what did i do wrong in the code to make this stop working?