Linda,

If you want to copy the data to existing sheets, use code like
the following:

With Worksheets("Sheet1").UsedRange
..Copy Destination:=Worksheets("sheet2").Range(.Cells(1,
1).Address)
End With


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com




"Linda" wrote in message
...
I'd like to copy the entire sheet of Sheet 1 to Sheet 2 and
Sheet 3, I want
to automate this with VBA, how could I accomplish this? Thank
you.