UserForm Combo Box Starts dropped down

[mdd423]

Hopefully this is an easy question but the answer is eluding me.

I'm using a userform for data entry and when the form initializes one of my combo box's is starting dropped down but not in the normal drop style.

vs. this when you click into the combo box.

Private Sub userform_Initialize()
Dim cPress As Range
Dim ws As Worksheet
Dim Initials As String
Dim ds As Worksheet
Dim recordID As String
Dim ldate As Date


ldate = DateTime.Date - 1


'On Error Resume Next


Initials = InputBox("Enter your GUPI Initials:", "GUPI USER")


txtInitials.value = Initials


Set ws = Worksheets("LookupLists")
Set ds = Worksheets("Work Records")


recordID = WorksheetFunction.CountA(Range("A:A")) + 1


Me.txtRecID = recordID
Me.spnRecord.value = recordID
Me.ChkbxNotes.value = False
With Me.cboShift
    .AddItem "1st Shift"
    .AddItem "2nd Shift"
    .AddItem "3rd Shift"
    .value = ""
   End With




Me.p2gbar.Visible = False




For Each cPress In ws.Range("=Presses")
  With Me.CboPress
    .AddItem cPress.value
  End With
Next cPress
Me.TxtDate.value = ldate




End Sub

Thanks for you help!