Sub Tester9()
Dim varr As Variant
Dim rng As Range
On Error Resume Next
Set rng = Application.InputBox("select range with mouse", Type:=8)
On Error GoTo 0
If rng Is Nothing Then Exit Sub
varr = rng.Value
For i = 1 To UBound(varr, 1)
For j = 1 To UBound(varr, 2)
Debug.Print "Varr(" & i & ", " & j & ") = " & varr(i, j)
Next
Next
End Sub

--
Regards,
Tom Ogilvy






"Shane" wrote in message
...
Hello,
I need to get user input for a range of data and then assign this range to
array.

Anyone got any pointers..
Thanks S