Mine

Private Sub cmdDel_Title_Click()
    ' If a user tries to remove a title without a title in the list, give error
    
    ' Works
    If lstCurr_Titles.SelCount = 0 Then
        MsgBox "There are no titles to remove right now, perhaps you mean to create one?", vbExclamation, "Removal Error"
        cmdAdd_Title.SetFocus
    End If
    
    lstCurr_Titles.RemoveItem lstCurr_Titles.ListIndex
End Sub