Just in case the problem resides in the code for the other 3 combo
boxes. When I comment out the lost focus events, all the code above
runs fine. Here is the code:

Private Sub cboBusSegment_KeyDown(ByVal KeyCode As
MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyTab Or KeyCode = vbKeyReturn Then
ChangeInsiteDiv
Range("E15").Select
End If

End Sub
________________________________________________
'Private Sub cboBusSegment_LostFocus()
'ChangeInsiteDiv
'End Sub
_______________________________________________
Private Sub cboCostCenter_KeyDown(ByVal KeyCode As
MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyTab Or KeyCode = vbKeyReturn Then
ChangeAdminCode
Range("E24").Select
End If

End Sub
__________________________________________________ __
'Private Sub cboCostCenter_LostFocus()
' ChangeAdminCode
'End Sub
__________________________________________________ __
Private Sub cboReasonForOpening_KeyDown(ByVal KeyCode As
MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyTab Or KeyCode = vbKeyReturn Then
ChangeEDCEmpStatus
cboCostCenter.Activate
End If

End Sub
__________________________________________________ ________
Private Sub cboReasonForOpening_LostFocus()
ChangeEDCEmpStatus
End Sub

Thanks in advance!!!!!!!!