Cut and Paste row

[Pkm2007]

Anyone can help me?
I try to cut row in a sheet and paste to another sheet by VBA
but can not work

-----------------
Sub Testcut()
Dim Line As Integer
I = Worksheets("Sheets1").Range("CheckIndex")
Worksheets("Sheets2").Rows("I").Select
Selection.Cut
Line = [ADDFGLINE] + 1
Worksheets("Sheets3").Rows(Line).Paste
End Sub
-----------

 

[xenou]

I believe that you need a range object for your paste method:

Worksheets("Sheets3").Rows(Line).Paste

Can be amended to:

Worksheets("Sheets3").Cells(Line,1).Activate
Worksheets("Sheets3").Paste

 

[Pkm2007]

Thanks, Alexander Barnes