Initialisering af userform fejler

Jeg har kigget på koden flere timer nu og kan ikke se hvad jeg gør galt. Her er koden - håber der er et klogt hoved derude, som kan hjælpe:

Private Sub UserForm_Initialize()
    Dim cProjekter As Range
    Dim cMedarbejder As Range
    Dim ws As Worksheet
    Set ws = Worksheets("LookupLists")
    Set wsp = Worksheets("Projekter")
   
    For Each cProjekter In wsp.Range("listProjekter")
      With Me.cboProjekter
        .AddItem cProjekter.Value
        .List(.ListCount - 1, 1) = cProjekter.Offset(0, 1).Value
      End With
    Next cProjekter
   
    For Each cMedarbejder In ws.Range("listMedarbejder")
      With Me.cboMedarbejder
        .AddItem cMedarbejder.Value
      End With
    Next cMedarbejder
   
    Me.txtDate.Value = Format(Date, "Medium Date")
    Me.cboProjekter.SetFocus

End Sub

Jeg får denne fejl når jeg kalder formen:

Run-time error '5':

Invalid procedure call or argument