ListBox1.RowSource: wie formulieren?

[StefKe]

Hallo Gemeinde, ich hab wiedermal eine Pfosten vor'm Kopf:

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

wie kann in RowSource das "F" ersetzt werden???

Danke - Stefan

[StefKe]

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