Wsrtjtyk

I need your help.
I defined a variable called myRange as Range and set it to the users selected Range and then I create a Chart from that Range.
Because the Created chart goes to a new Sheet, I activate once again ("Embarrassing") in which myRange is still selected. Now I want to move a new range which a 9 nine new cells and creat another Chart and then cut the First Chart and paste it the second one and move them to my Sheet ("Embarrassing").
The problem is that I get an 'Object required' error in this step 'Set mySecRange = Selection.Offset(0, 9).Select'.

Here is my Code :

 Sub Macro3()





  Dim myRange As Range



  Set myRange = Selection



  Charts.Add



    With ActiveChart



        .ChartType = xlLine



        .SetSourceData Source:=myRange



    End With



 Worksheets("Embarrassing").Activate



Dim mySecRange As Range



Set mySecRange = Selection.Offset(0, 9).Select





 Charts.Add



    With ActiveChart



        .ChartType = xlLine



        .SetSourceData Source:=mySecRange



        End With



End Sub