I have the following code in the workbook_open event
Private Sub Workbook_Open()
On Error GoTo errhand
ActiveWorkbook.Sheets(1).Select
ActiveSheet.Codes.Width = 200
ActiveSheet.Codes.ColumnCount = 2
ActiveSheet.Codes.BoundColumn = 2
ActiveSheet.Codes.ColumnWidths = "2 IN;.5IN"
ActiveSheet.Codes.TextColumn = 1
ActiveSheet.Codes.ListFillRange = "=Codes"
ActiveSheet.Codes.Visible = False
Exit Sub
errhand: MsgBox "Error Number is " & Err.Number & " Error Description is " &
Err.Description
End Sub

When the Codes "BoundColumn" Statement is executed, control passes to the
Codes_Click Event. Codes is a combo box on sheet 1

Why does this happen? How do I set the BoundCOlumn without giving up control?

TIA
Lee Hunter