Set rArea = Application.InputBox(prompt:="Select range:", Type:=8)
Set rXValues = Application.InputBox(prompt:="Select XValues:", Type:=8)
Set rYValues = Application.InputBox(prompt:="Select YValues:", Type:=8)


It worked fine.
Now it reports the error in subject to me.
Sometime VBA crashes on the 1st instruction, sometime on the 2nd.

I hope to translate correct the error message because I'm using the italian version of VBA.

Thanks, Alex.

Hi Alex

Did you declare the variables ? Did you account for invalid entries and
Cancel ?

This should take care of both:

Sub Test()
Dim rArea As Range
Dim rXValues As Range
Dim rYValues As Range
On Error Resume Next
Set rArea = Application.InputBox(prompt:="Select range:", Type:=8)
If rArea Is Nothing Then Exit Sub
Set rXValues = Application.InputBox(prompt:="Select XValues:", Type:=8)
If rXValues Is Nothing Then Exit Sub
Set rYValues = Application.InputBox(prompt:="Select YValues:", Type:=8)
If rYValues Is Nothing Then Exit Sub
End Sub

HTH. Best wishes Harald

"y" skrev i melding ...
Set rArea = Application.InputBox(prompt:="Select range:", Type:=8)
Set rXValues = Application.InputBox(prompt:="Select XValues:",
Type:=8)
Set rYValues = Application.InputBox(prompt:="Select YValues:",
Type:=8)


It worked fine.
Now it reports the error in subject to me.
Sometime VBA crashes on the 1st instruction, sometime on the 2nd.

I hope to translate correct the error message because I'm using the
italian version of VBA.

Thanks, Alex.