Hi All,

I developed the following code using the form tool. The only problem is
when the code runs; an additional €˜Sub - End Sub line of code is created.

Here is the code:
Private Sub UserForm_Initialize()

ComboBox1.ColumnCount = 5
ComboBox1.RowSource = "a1:e4"
ComboBox1.ControlSource = "a6"
'Place the ListIndex into cell a6
ComboBox1.BoundColumn = 0

End Sub

And here is the additional code line that is return after the above code is
finished.

Private Sub ComboBox1_Change()

End Sub

What changes are required to prevent the additional lines of code?

Thanks Again
Paul