Worksheets(Wks).Range("A5").Copy Destination:= _
Worksheets("Printout").Range("A6")

or if you just want values

Worksheets("Printout").Range("A6").Value = _
Worksheets(Wks).Range("A5").Value


--
Regards,
Tom Ogilvy



"Art" wrote in message
...
Hi
I would like to simplify this code to copy stuff from one worksheet to
another. How can this be done?

Worksheets(Wks).Select
Range("A5").Select
Selection.Copy
Worksheets("Printout").Select
Range("A6").Select
ActiveSheet.Paste

Also, is there a way to copy more than one item at a time, like the
clipboard does?

Thanks, and have a great day.

Art