Just so there's no ambiguity as to what to do with the ComboBox1_Change
event code, just paste the following into the code window the Sheet1.

Private Sub ComboBox1_Change()
Me.Range("C1") = CLng(Me.ComboBox1.Text)
End Sub

This will obviate the need for you to define a named range for the
results.

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc