[VBA] ListBox δεν εμφανίζει όλες της στήλες

[anestaki]

Καλησπέρα σε όλους
Στο συνημμένο ανοίγοντας την φόρμα θα πρέπει να εμφανίζονται όλες η αριθμημένες στήλες , και δεν μπορώ να καταλάβω πιο είναι το λάθος.
Κάθε βοήθεια δεκτή σας ευχαριστώ εκ΄των πρότερων Γιώργος.

Dim i As Long, x As Integer, LastRow As Long
    LastRow = stoixia.Cells(Rows.Count, 14).End(xlUp).Row
    If LastRow > 1 Then
        With ListBox1
        .ColumnCount = 14
.ColumnWidths = "140;0;0;0;0;60;60;60;60;60;60;60;60;60"
            .Clear
            For i = 11 To LastRow
                .AddItem
                For x = 0 To 9
                    .List(i - 11, x) = stoixia.Cells(i, x + 14)
                Next
            Next
        End With
    End If

[Thanosp]

Καλησπέρα σε όλους
νομίζω ότι μέχρι 10 στήλες μπορεί να εμφανίσει.
θανάσης

[Thanosp]

Καλημέρα σε όλους
κοίτα το συνημμένο με τις 4 τελευταίες στήλες σε μία.
θανάσης

[anestaki]

Καλημέρα σε όλους
Θανάση σε ευχαριστώ για το ενδιαφέρον σου αλλά η λίστα με τα δεδομένα σε μια στήλη δεν έχει συνοχή.