将值数组读入userform

Question

在Excel，Office 2010中，我想使用VBA将值数组读入用户表单的行源。这些值由当前活动工作簿中工作表上的一系列单元格引用。

此代码在我的工作簿的早期版本上运行。现在代码生成以下错误：运行时工作'380：'无法设置RowSource属性。无效的属性值。

'XXXXXXXXXXXXXXXXXX Set RowSource For DropDowns /Dealer Business System 
Set WS = Sheets("DBS-COA")
WS.Activate
ActiveCell.SpecialCells(xlLastCell).Select
MaxRow = WS.Range("A" & WS.Rows.Count).End(xlUp).Row
Frm.cmbDBS.ColumnCount = 2

' The line below is the line that generates the error.

Frm.cmbDBS.RowSource = WS.Name & "!" & WS.Range("A2:A" & MaxRow).Address
End Sub

该行解析为：“Fmr.cmbDBS.RowSource = DBS-COA！$ A $ 2：$ A $ 5” 其中DBS-COA是活动工作簿中工作表的名称。