Generating Array from Inputbox Range

[Jadendo]

I am trying to populate an array from an user defined range via an inputbox, but am having a little trouble.

Basically been using the below... trying to force into an array, but I think there is some type mismatch somewhere.

Set LastRange() = Application.InputBox(Prompt:="Prompt", _
Title:="Range Finder", Type:=8)

Any idea on how I can assign that range to an array. Thanks guys!!

 

[facethegod]

Jadendo, try this out

Option Explicit
Sub try()
Dim LastRange(), x, i As Variant
Dim cell As Range
Set x = Application.InputBox(Prompt:="Prompt", Title:="RangeFinder", Type:=8)
ReDim LastRange(1 To x.Rows.Count)
For Each cell In x
i = cell.Count + i
LastRange(i) = cell
Next
End Sub

HTH

 

[Scott Huish]

Perhaps:

Sub test()
Dim x As Range, t
Set x = Application.InputBox("Select Range", Type:=8)
ReDim t(1 To x.Rows.Count, 1 To x.Columns.Count)
t = x
End Sub