Populating userform combo boxes

[MattMurdock]

Hi I'm having trouble populating a UserForm combo box

Here's my code, any help would be great-

Private Sub ArchiveForm_Initialize()
Dim cPart As Range
Dim cLoc As Range
Dim ws As Worksheet
Set ws = Worksheets("Calibration Data")
For Each cPart In ws.Range("Archives")
  With Me.ComboBox2
    .AddItem cPart.Value
    .List(.ListCount - 1, 1) = cLoc.Offset(0, 1).Value
  End With
Next cPart
For Each cLoc In ws.Range("Years")
  With Me.ComboBox1
    .AddItem cLoc.Value
    .List(.ListCount - 1, 1) = cLoc.Offset(0, 1).Value
  End With
Next cLoc
End Sub

[Ken Puls]

Try this:

Private Sub UserForm_Initialize()Dim cPart As Range
Dim cLoc As Range
Dim ws As Worksheet
Set ws = Worksheets("Calibration Data")
For Each cPart In ws.Range("Archives")
  With Me.ComboBox2
    .AddItem cPart.Value
    .List(.ListCount - 1, 1) = cLoc.Offset(0, 1).Value
  End With
Next cPart
For Each cLoc In ws.Range("Years")
  With Me.ComboBox1
    .AddItem cLoc.Value
    .List(.ListCount - 1, 1) = cLoc.Offset(0, 1).Value
  End With
Next cLoc
End Sub