Hi Tepee,

The following code in ths worksheet module worked foe me:

'=============
Private Sub Worksheet_Activate()
With Me.ComboBox1
.ListFillRange = "A1: A10"
.ListIndex = 0
End With
End Sub
'<<=============



---
Regards,
Norman


"teepee" wrote in message
...
Hi

It is a control toolbox comb box. I tried executing Norman's code on the
page - giving the error described above - and inside the box, where it
just
did nothing.