View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Richard Richard is offline
external usenet poster
 
Posts: 709
Default Copy contents to another page

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Worksheets("Sent to Assembly").Range("a3:c100").EntireRow.Copy
Destination:=Worksheets("Parts Sent to Assembly").Range("a3:c100")

End Sub

This code works fine but I need it to retain the contents on the "Parts Sent
to Assembly" sheet when I delete the contents on the "Sent to Assembly"
sheet. Any suggestions! Thanks in advance!!