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....