リストボックスのプロパティを設定できません

質問

excelのuserform上にリストボックスを作って表示させようとしているのですが、
↓ここでエラー
　(1)ColumnWidths = "50:50"　　（ColumnWidths プロパティを設定できません。）
(2) .RowSource = Worksheets("過去データ").Range("A" & lastRow & ": B" & lastRow).Address
　　　　（RowSourceプロパティを設定できません。）

ここでエラーになるのですが、何が違うのかわかりません。

ちなみに
Worksheets("過去データ").Range("A" & lastRow & ": B" & lastRow).Select
で選択させてみるとちゃんと選択しているのです。

今はAB列だけで試しているのですが、最終的には39列ありすべて表示させるつもりです。

listbox１（←番号）をクリックすると、クリックした値で、Worksheets("過去データ").にフィルターがかかり、
フィルタをかけた状態で、最終行を選択し、listbox2（←その番号に付随する詳細内容）に表示され、そしてlistbox1のチェックボックスにチェックの入ったものを、登録ボタンを押すと別のシートに貼り付ける、ということが最終的にはしたいのです。

１日中悩んでおりましたがわかりません。どなたか助けてください。

------------------------------
Private Sub ListBox1_Click()
Worksheets("過去データ").Cells(1, 1) = UserForm1.ListBox1.Text
Unload UserForm1

Dim target As String
target = Worksheets("過去データ").Range("A1").Value
Worksheets("過去データ").Cells(1, 39).AutoFilter Field:=1, Criteria1:=target, Operator:=xlAnd

Dim lastRow As Long
With Worksheets("過去データ")
lastRow = .Range("A" & Rows.Count).End(xlUp).Row
MsgBox lastRow
End With

With ListBox2
.ColumnCount = 2
'.ColumnWidths = "50:50"
'.RowSource = "過去データ!A" & lastRow & ": B" & lastRow.Address
.RowSource = Worksheets("過去データ").Range("A" & lastRow & ": B" & lastRow).Address
End With

End Sub

回答No.1

m-take0220

＞ ColumnWidths = "50:50"

区切りはセミコロン(;)じゃないですか?

＞ .RowSource = Worksheets("過去データ").Range("A" & lastRow & ": B" & lastRow).Address

Address(External:=True) にしないと、シート名などがない形式で返されるのでは?