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