VBA中列表框的行源属性

我的列表框的属性“RowSource”有问题，我不明白为什么。以下是我的方法：

Public Sub lbUsersInProgressRefresh()
'Variable declaration
Dim lastRow As Integer

'Refresh ListBox Users In Progress
lastRow = Worksheets("User In Progress").Range("A" & Rows.Count).End(xlUp).Row + 1
With Worksheets("Main").lbUsersInProgress
    .ColumnCount = 5
    .ColumnWidths = "50 pt;45 pt;45 pt;45 pt;45 pt"
    .ColumnHeads = True
    .RowSource = Sheets("User In Progress").Range(Sheets("User In Progress").Cells(1, 1), Sheets("User In Progress").Cells(lastRow, 5)).Address
End With

End Sub

以下是我的数据：

下面是我的列表框的结果：

---

我希望这些数据以良好的标题出现在列表框中。您有办法管理它吗？

您应该对工作表上的activex列表框使用

ListFillRange

，而不是

RowSource

。您应该对工作表上的activex列表框使用

ListFillRange

，而不是

RowSource

。