Cut and paste cells

[Jesse Hamilton]

I have a line of code in one of my sheets

Sheets("Ready").Range(Cells(2,1,),Cells(ReadyRows-1,11)).cut

But it only works if the sheet is active, I want it to work without the
sheet being active hence I want to avoid using Sheets("Ready").Activate

Any help?

Jesse
jesse at jesseh.net

 

[Tom Ogilvy]

With Sheets("Ready")
.Range(.Cells(2,1,),.Cells(ReadyRows-1,11)).cut
End With

 

[Jesse]

That works great but try as I might I can't get it to past.

I tried originally

Sheets("Not Ready").cells(NotReadyRows,1).paste

Then trying to mimic the cut code

With Sheets("Not Ready")
.Range(.Cells(NotReadyRows, 1)).Paste
End With

Not working either way.

Jesse

 

[Tom Ogilvy]

With Sheets("Ready")
.Range(.Cells(2,1,),.Cells(ReadyRows-1,11)).cut _
Destination:=Sheets("Not Ready).Cells(NotReadyRows,1)
End With

or to use your approach

With Sheets("Not Ready")
.Cells(NotReadyRows, 1).Paste
End With