Does the item have to be selected for it to work?

Code:
        Dim ItemToAdd As ListItem
        
        Set ItemToAdd = .ListItems.add(, , "hello")
        ItemToAdd.SubItems(1) = "asdf"
        
        ItemToAdd.Selected = True
        ItemToAdd.EnsureVisible
        ItemToAdd.Selected = False
        
        Set ItemToAdd = Nothing