Hey all my BRILLIANT friends,
Can you help? I am getting a run time error

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