Hi there,

I am struggling a bit with folowing situatie. I created a userform which has 3 combo boxes and I am having trouble with getting the lists in each of there separate boxes.

The names of the lists are:
- Typeopdracht
- Statusopdracht
- Verdienmodel

The names of the combo boxes are:
- cboTypeOpdracht
- cboStatusOpdracht
- cboVerdienmodel

I found the following piece of code

Private Sub UserForm_Initialize()

With Worksheets("Projects")
Revenue_Account.List() = .Range("RevCategory").Value
End With
End Sub

and I rewrote it like this:

Private Sub UserForm_Initialize()
txtAangenomenOp.Value = Format(Date, "medium date")
Me.txtAdres.SetFocus

With Worksheet("blad9")
cboTypeOpdracht.List() = .Range("Typeopdracht").Value
cboStatusOpdracht.List() = .Range("Statusopdracht").Value
cboVerdienmodel.List() = .Range("Verdienmodel").Value
End With

End Sub

I don't know what I did wrong and besides that it now says that the sub or function isn't defined.

What do I do?