Hi Dan,

Try something like:

'=============
Private Sub UserForm_Initialize()
With Me.ListBox1
.RowSource = "A1: A20 "
.MultiSelect = fmMultiSelectMulti
.Selected(1) = True
.Selected(3) = True
End With
End Sub
'<<=============


---
Regards,
Norman


"Dan" wrote in message
...
Greetings Gurus -
I have a multi-select list box, lstActivityCode.
When this list box is loaded with values, I need one or more value to be
hi-lighted. The same as if the user selects them.

lstActivityCode.Selected(CodeNumber-1) = True

Doesn't work.

And I can't see any other way to do it.

Anyone know how?

Thanks in advance -
Dan