Thread: cut and return
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Crowbar via OfficeKB.com Crowbar via OfficeKB.com is offline
external usenet poster
  
Posts: 128
Default cut and return
Your problem is the last row of code. You have not declared a section for it
to delete.

I have altered this to delete row 1 which causes no problems.

Sub updated()
Selection.Cut
Sheets("Sheet2").Select
Rows("1:1").Insert Shift:=xlDown
Sheets("sheet1").Rows("1:1").Delete

End Sub

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200710/1

Reply With QuoteReply With Quote