Thread: Copy???
View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
Tom Ogilvy Tom Ogilvy is offline
external usenet poster
  
Posts: 27,285
Default Copy???
Selection.currentRegion.copy Destination:= _
Worksheets("Sheet2").Cells(rows.count,1).End(xlup) (2)
With Worksheets("Sheet2")
.Range("A1").CurrentRegion.Sort Key1:=.Range("A1"), _
Order1:=xlAscending
End With

--
Regards,
Tom Ogilvy


Reply With QuoteReply With Quote