For Each cVend In wksLookupLists.Range("VendorList") .Cells



"Jennifer" wrote:

Partick,
I did what you did and I started with a fresh workbook, still not working.
Could it something I am not doing in the properties area of VBA for the combo
box. Otherwise maybe I am not naming my ranges correctly? Thank you for your
help. I'm off to bed but I will look again tomorrow morning.

The error is happing were i put /////

Private Sub UserForm_Initialize()
Dim cVend As Range
Dim cRan As Range
Dim cProd As Range

///////// For Each cVend In wksLookupLists.Range("VendorList") ////////
With Me.cboVend
.AddItem cVend.Value
.List(.ListCount - 1, 1) = cVend.Offset(0, 1).Value
End With
Next cVend
For Each cRan In wksLookupLists.Range("RanchIDList")
With Me.cboRan
.AddItem cRan.Value
.List(.ListCount - 1, 1) = cRan.Offset(0, 1).Value
End With
Next cRan
For Each cProd In wksLookupLists.Range("ProduceIDList")
With Me.cboProd
.AddItem cProd.Value
.List(.ListCount - 1, 1) = cProd.Offset(0, 1).Value
End With
Next cProd

End Sub

--
Though daily learning, I LOVE EXCEL!
Jennifer