Private Sub CmbInvoiceChooseVendor1_Change()
Dim d As Range
Dim lngIndex As Long
With Sheets("ProdbyVend")
Set d = .Rows(1).Find(CmbInvoiceChooseVendor1, LookIn:=xlValues, lookat:=xlWhole)
If Not d Is Nothing Then
For lngIndex = 1 To .Cells(.Rows.Count, d.Column).End(xlUp).Row
If .Cells(lngIndex, d.Column) <> "" Then
CmbInvoiceItem1.AddItem .Cells(lngIndex, d.Column)
End If
Next
End If
End With
End Sub