List box not populating with all information

I have this current code which works find up to the ConveyorPickingCheck.value part - it populates this information but nothing beyond this?

i'm maybe missing something simple but very frustrating, any info would be great

Private Sub ListBox1_Click()

    If Me.ListBox1.ListIndex = -1 Then    'not selected
        MsgBox " No selection made"
    ElseIf Me.ListBox1.ListIndex >= 1 Then    'User has selected
        r = Me.ListBox1.ListIndex

        With Me
            .TextBox1.Value = ListBox1.List(r, 0)
            .TextBox3.Value = ListBox1.List(r, 1)
            .cmbAmend.Enabled = True      'allow amendment or
            .cmbDelete.Enabled = True     'allow record deletion
            .cmbAdd.Enabled = False       'don't want duplicate
            If ListBox1.List(r, 2) = "Yes" Then
                ToteLaunchCheck.Value = True
            ElseIf ListBox1.List(r, 2) = "No" Then
                ToteLaunchCheck.Value = False
            End If
            If ListBox1.List(r, 3) = "Yes" Then
                ConveyorPickingCheck.Value = True
            ElseIf ListBox1.List(r, 3) = "No" Then
                ConveyorPickingCheck.Value = False
            End If
            If ListBox1.List(r, 4) = "Yes" Then
                HighlighterCheck.Value = True
            ElseIf ListBox1.List(r, 4) = "No" Then
                HighlighterCheck.Value = False
            End If
            If ListBox1.List(r, 5) = "Yes" Then
                QualityCheck.Value = True
            ElseIf ListBox1.List(r, 5) = "No" Then
                QualityCheck.Value = False
            End If
            If ListBox1.List(r, 6) = "Yes" Then
                PrePackCheck.Value = True
            ElseIf ListBox1.List(r, 6) = "No" Then
                PrePackCheck.Value = False
            End If
            If ListBox1.List(r, 7) = "Yes" Then
                SpecialsCheck.Value = True
            ElseIf ListBox1.List(r, 7) = "No" Then
                SpecialsCheck.Value = False
            End If
            If ListBox1.List(r, 8) = "Yes" Then
                TeamLeaderCheck.Value = True
            ElseIf ListBox1.List(r, 8) = "No" Then
                TeamLeaderCheck.Value = False
            End If
        End With
    End If
End Sub

Hard to say without more details.

One thing to note is if a ListBox1 column doesn't contain exactly "Yes" or "No" (case sensitive and no trailing spaces or extra characters), then the .Values are not set. With your If-ElseIf code, all these would not result in a True or False:
"yes", "NO", "Yes ", "n"

You could use this instead of If-ElseIf...
ToteLaunchCheck.Value = LCase(Trim(ListBox1.List(r, 2))) = "yes"
This returns True if it equals Yes and False if it is not Yes. It's not case sensitive and trims any spaces.

I'll give that a shot, thanks, all those if else if did seem a bit bulky aswell