Because you declared variable as String, so never be converted to other data type.
try
Private Sub PopoutLeadListBox_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim selectedItem As Variant, x As Variant
SalesForm.BHSDTAPNAMELF = "": SalesForm.BHSDCOMPANYNAMELF = ""
With Me.PopoutLeadListBox
selectedItem = .List(.ListIndex, 10)
End With
If IsNumeric(selectedItem) Then selectedItem = Val(selectedItem)
x = Application.XLookup(selectedItem, Worksheets("MASTER TAPS").Range("S:S"), Worksheets("MASTER TAPS").Range("T:T"))
If Not IsError(x) Then SalesForm.BHSDTAPNAMELF.Value = x
x = Application.XLookup(selectedItem, Worksheets("MASTER TAPS").Range("S:S"), Worksheets("MASTER TAPS").Range("U:U"))
If Not IsError(x) Then SalesForm.BHSDCOMPANYNAMELF.Value = x
End Sub
Bookmarks