Dropdown List in ComboBox

My ComboBox is not loading the list of items from the range I specified ("Accountability_Dept_Lookup" named range in the "Lookup" sheet). It was working earlier, but I'm not sure what is happening now. Here is my code:

Private Sub UserFormDept_Initialize()
    DimcDept As Range
    Dim ws As Worksheet
    Set ws = Worksheets("Lookup")
    For Each cDept In ws.Range("Accountability_Dept_Lookup")
        With Me.cboDepartment
           .AddItem cDept.Value
      End With
    Next cDept
End Sub

Can anyone tell me what I am doing wrong? I'm also curious how to call on this when the workbook opens.

Hello

Welcome to the Forum!

It appears to be a typographical error.

You code has...

    DimcDept As Range

Your code should be...

    Dim cDept As Range

Hello aearce2000,

You're welcome.