Inputbox/Regression Problem

[Matt]

Hi,

I'm a VBA novice and have found this group helpful in my learning, but
I'm stuck with a particular piece of coding. What I'm trying to do is
allow the user to select a Y and X range using an inputbox, which will
then be used for a regression. Here's the problematic part of the
macro:

Dim piRange As Range
On Error Resume Next
Set piRange = Application.InputBox(prompt:="Select pi range",
Title:="SELECT STANDARDISED RESIDUALS", Type:=8)
If Not piRange Is Nothing Then
MsgBox "You selected: " & piRange.Address
Else
MsgBox "pi range is undefined because you cancelled."
End If

Dim xRange As Range
On Error Resume Next
Set xRange = Application.InputBox(prompt:="Select x range with
mouse", Title:="SELECT INDEPENDENT VARIABLES", Type:=8)
If Not xRange Is Nothing Then
MsgBox "You selected: " & xRange.Address
Else
MsgBox "x range is undefined because you cancelled."
End If

Application.Run "ATPVBAEN.XLA!Regress", _
ActiveSheet.Range(piRange), ActiveSheet.Range(xRange), False,
False, , _
ActiveSheet.Range("$AF$1"), False, False, False, False, , False


Thanks in advance,

Matt

[Toppers]

Matt,

Try:

ActiveSheet.Range(piRange.Address), ActiveSheet.Range(xRange.Address),
False, False, , _

"Matt" wrote:

> Hi,
>
> I'm a VBA novice and have found this group helpful in my learning, but
> I'm stuck with a particular piece of coding. What I'm trying to do is
> allow the user to select a Y and X range using an inputbox, which will
> then be used for a regression. Here's the problematic part of the
> macro:
>
> Dim piRange As Range
> On Error Resume Next
> Set piRange = Application.InputBox(prompt:="Select pi range",
> Title:="SELECT STANDARDISED RESIDUALS", Type:=8)
> If Not piRange Is Nothing Then
> MsgBox "You selected: " & piRange.Address
> Else
> MsgBox "pi range is undefined because you cancelled."
> End If
>
> Dim xRange As Range
> On Error Resume Next
> Set xRange = Application.InputBox(prompt:="Select x range with
> mouse", Title:="SELECT INDEPENDENT VARIABLES", Type:=8)
> If Not xRange Is Nothing Then
> MsgBox "You selected: " & xRange.Address
> Else
> MsgBox "x range is undefined because you cancelled."
> End If
>
> Application.Run "ATPVBAEN.XLA!Regress", _
> ActiveSheet.Range(piRange), ActiveSheet.Range(xRange), False,
> False, , _
> ActiveSheet.Range("$AF$1"), False, False, False, False, , False
>
>
> Thanks in advance,
>
> Matt
>
>

[Matt]

Toppers,

That works perfectly! Thanks for your help.

Matt