AutoFit column listbox

[S P P]

List the listbox with the same width as the table column

 

[Belleke]

Without an example?
Something like this?
Adapt to your needs

Private Sub UserForm_Initialize()
        Dim rngDB As Range, rng As Range
        Dim sWidth As String
        Dim vR() As Variant
        Dim n As Integer

        Set rngDB = Range("a1:ab1")
        For Each rng In rngDB
            n = n + 1
            ReDim Preserve vR(1 To n)
            vR(n) = rng.EntireColumn.Width
        Next rng
        sWidth = Join(vR, ";")
        Debug.Print sWidth
        With ListBox1
            .ColumnCount = 28
            .ColumnWidths = sWidth
            .RowSource = "A1:AB2"
            .BorderStyle = fmBorderStyleSingle
        End With
    End Sub

 

[S P P]

>>> use code - tags <<<

Set rngDB = Range("a1:ab1")
Table data
Sheets(1).ListObjects(1)

 

[S P P]

It worked like this
>>> use code - tags <<<

Sheets(1).ListObjects(1).DataBodyRange

In some columns the last letter is halfway

 

[Belleke]

In some columns the last letter is halfway

List the listbox with the same width as the table column

According to your question that means that some of your cells in certain columns are also half filled.

 

[S P P]

Use in Register or Change
>>> use code - tags <<<

Sheets(1).UsedRange.EntireColumn.AutoFit
Sheets(1).EnableSelection = xlNoSelection

The column is the exact width

 

[S P P]

Because I have more than 10 columns