Excelmacroquestion Pleease! Urgent!

[Libero]

This Macrocode is not working.

Sub Macro1()

Set myrange = Application.InputBox("Markera celler."; Type:=8)


Xvalue = Application.InputBox("Ange titel för X-Axel.")
Yvalue = Application.InputBox("Ange titel för Y-Axel.")
DTitle = Application.InputBox("Ange namn för diagrammet.")
Range(myrange).Select ' Here is the problem

Application.CutCopyMode = False
Charts.Add
ActiveChart.ChartWizard Source:=Sheets("Sheet1").Range( _
myrange); Gallery:=xlLine; Format:=2; PlotBy:= _
xlColumns; CategoryLabels:=1; SeriesLabels:=2; HasLegend:=1; _
Title:=DTitle; CategoryTitle:=Yvalue; ValueTitle:=Xvalue; _
ExtraTitle:=""
End Sub


Pleease help me with this....

[Sforster]

You are using the range object but none of its properties.....

Try using this instead

Sub Macro1() 

Set myrange = Application.InputBox("Markera celler."; Type:=8) 

Xvalue = Application.InputBox("Ange titel för X-Axel.") 
Yvalue = Application.InputBox("Ange titel för Y-Axel.") 
DTitle = Application.InputBox("Ange namn för diagrammet.") 
Range(myrange.addresslocal).Select ' Here is the problem 

Application.CutCopyMode = False 
Charts.Add 
ActiveChart.ChartWizard Source:=Sheets("Sheet1").Range( _ 
myrange); Gallery:=xlLine; Format:=2; PlotBy:= _ 
xlColumns; CategoryLabels:=1; SeriesLabels:=2; HasLegend:=1; _ 
Title:=DTitle; CategoryTitle:=Yvalue; ValueTitle:=Xvalue; _ 
ExtraTitle:="" 
End Sub

Hope this helps
Steve

[Libero]

Tank u VERY much!! Worked perfect. :-))