List box not displaying 1st or 2nd option

I have a user form with two list boxes. When I show the user form, I want to highlight the 2nd option on the ActivityList and the 3rd option on the MonthList. When the form is displayed, no options are selected for the ActivityList but the MonthList is correct?

Sub ShowForm()
    UserForm1.ActivityList.ListIndex = 1
    UserForm1.MonthList.ListIndex = 2
     UserForm1.Show vbModeless
End Sub

Thanks in advance