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

Same response as to your previous post.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Paul" wrote in message
...
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