Excel VBA: Horizontal Labels mit automatischer Breite

Option Explicit

Private Sub UserForm_Initialize()
    
    Dim oWks As Worksheet, i As Integer
    
    With Me.ComboBox6
        For Each oWks In ThisWorkbook.Sheets
           .AddItem oWks.Name
        Next
       .ListIndex = 0
       .SetFocus
       .SelStart = 0
       .SelLength = Len(.Text)
    End With
    
End Sub

Private Sub ComboBox6_Change()

    Dim objDic As Object, newLabel As Object, i As Integer, selSheet As String, lngZ As Long, lCol As Long, lRow As Long
        
    With Me.ComboBox6
        Sheets(.Value).Activate
        selSheet = ComboBox6.Value
        lRow = Cells(Rows.Count, 1).End(xlUp).Row
        lCol = Cells(1, 256).End(xlToLeft).Column
    End With

    Set objDic = CreateObject("Scripting.Dictionary")  
 
    For i = 1 To 5
        For lngZ = 2 To Cells(Rows.Count, 1).End(xlUp).Row
            objDic(Cells(lngZ, i).Value) = 0
        Next
     
        With Me.Controls("ComboBox" & i)  
            .List = objDic.Keys
            .ListIndex = 0
            .SetFocus
            .SelStart = 0
            .SelLength = Len(.Text)
        End With
        
        objDic.RemoveAll
    Next
              
    For i = 1 To 10
        Set newLabel = UserForm.Controls.Add("Forms.Label.1", "" & i, True)  
        With newLabel
            .Caption = Worksheets(selSheet).Cells(1, i + 1)
            .Left = 138
            .Top = 18
            AutofitWidths
        End With
    Next
        
    With Me.Controls("Listbox")  
        .ColumnCount = lCol
        .ColumnHeads = False
        .RowSource = Sheets(selSheet).Range(Cells(2, 1), Cells(lRow, lCol)).Address
        AutofitWidths
    End With
      
End Sub

Private Sub AutofitWidths()
    
Dim Row As Long, Col As Long
Dim ColWidth As String, MaxWidth As Double

Label.Visible = False
Label.WordWrap = False
Label.AutoSize = True

For Row = 0 To ListBox.ColumnCount - 1
    MaxWidth = 0
    For Col = 0 To ListBox.ListCount - 1
        Label.Caption = ListBox.Column(Row, Col) & ",,,"  
        If MaxWidth < Label.Width Then
            MaxWidth = Label.Width
        End If
    Next Col
    ColWidth = ColWidth & CLng(MaxWidth + 1) & ";"  
Next Row
ListBox.ColumnWidths = ColWidth
newLabel.Width = ColWidth

    
End Sub