トップ > 逆引きで学ぶ ユーザーフォーム&コントロール > 5-1　リストにセル範囲を設定する

Private Sub UserForm_Initialize()
    ListBox1.RowSource = "Sheet1!A2:A8"
End Sub

Private Sub UserForm_Initialize()
    Dim strAddress As String
    Dim r As Range
    strAddress = "Sheet1" '対象シート名
    With Worksheets(strAddress) 'A列(2行目から)のデータ範囲を取得
        Set r = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp))
    End With
    strAddress = strAddress & "!" & r.Address(False, False)
    ListBox1.RowSource = strAddress
    Set r = Nothing
End Sub