Populate Listbox1 with data from a named range when opening userform

I have amateur VBA coding skills. I am trying to populate listbox1 with data from a named range (Athlete), when I open userform1 using initialize. I cannot get the data to autofill into listbox1 from the named range. Below is the code I have:

Private Sub UserForm1_Initialize()

Dim myCell As Range
Dim rngitems As Range
Set rngitems = Sheets("AthleteMax").Range("Athlete")

Me.ListBox1.Clear
Me.ListBox2.Clear

With Me.ListBox1

For Each myCell In rngitems.Cells
If Trim(myCell) <> "" Then
.AddItem myCell.Value
End If
Next myCell

End With

Me.ListBox1.MultiSelect = fmMultiSelectMulti
Me.ListBox2.MultiSelect = fmMultiSelectMulti

End Sub

Norie,

I originally did not have the "1", however without the "1" the form would not pop up at all. With the "1" the form pops up but the list box does not populate from the named range.

Norie,

I originally did not have the "1", however without the "1" the form would not pop up at all. With the "1" the form pops up but the list box does not populate from the named range.

I am assigning the macro to a picture, so when I click the picture the userform box appears, and a list of names will populate in listbox1. From which I can select certain names in order to print specific sheets.

Should I populate listbox1 a different way, maybe using this code: ListBox1.RowSource = Range("Athlete").Address

Then use "show" to have the userform appear when picture is clicked?

My terminology is most likely not accurate, so that is not helpful. But yes, I have a macro exactly as you have described above that is assigned to the picture so it does in fact show userform1 when the picture is clicked. I deleted the initialize code and it didn't seem to effect anything.

I still have the same problem now that I cannot get the listbox to auto populate. I have this code but I am not sure what I need to change the "click" portion to.

Private Sub ListBox1_Click()

ListBox1.RowSource = Range("Athlete").Address

End Sub

I have got it all figure out. Thanks again.