ListBox1.RowSource: wie formulieren?

Code:
Sub ListboxFuellen(objForm As Object, strWksName As String)

    Dim lngLastRow As Long

    Dim lngLastColumn As Long

    Dim wksSource As Worksheet

    

    Set wksSource = Worksheets(strWksName)

    lngLastRow = wksSource.Cells(Rows.Count, 1).End(xlUp).Row

    lngLastColumn = wksSource.Cells(1, Columns.Count).End(xlToLeft).Column

    

    With Verein.ListBox2

        .BoundColumn = lngLastColumn

        .ColumnHeads = True

        'falscher Syntax:

        .RowSource = strWksName & "!A2:" & Cells(lngLastRow, lngLastColumn)

        'läuft:

        .RowSource = strWksName & "!A2:F" & lngLastColumn

    End With

End Sub