mutliselect listbox via looping a range

[eDIN]

I fill a userform mutliselect listbox via looping a range.
What i want is: if a font in paritcular cell (within the range) is bold Then
that items in listbox automatically becomes selected

Thanks!

[Kenneth Hobs]

Private Sub UserForm_Initialize()
Dim cell As Range, count As Long
count = -1
For Each cell In Range("A1:A10")
ListBox1.AddItem cell.Value2
count = count + 1
If cell.Font.Bold = True Then ListBox1.Selected(count) = True
Next cell
End Sub

[eDIN]

ThankYou Keneth
That's it.