"Norman Jones" wrote in message
...
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
'<<=============


many thanks norman - that worked a treat.