View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.misc
Gary''s Student Gary''s Student is offline
external usenet poster
 
Posts: 11,058
Default Copy noncontigous cells to next sheet

Sub foo()
Sheets("Sheet1").Range("A1").Copy Sheets("Sheet2").Range("A1")
Sheets("Sheet1").Range("C1").Copy Sheets("Sheet2").Range("B1")
End Sub

--
Gary''s Student - gsnu200723