macro for adding copy of worksheet

[Gobind]

hi

i need to create copy of a standard template worksheet and then add
data to it
i have done the data part, but for some reason i cant seem to get the
code for creating a copy of my standard template worksheet

here is what i am doing:

Dim tosheet as Worksheet
Dim copysheet As Worksheet
Set copysheet = current.Worksheets("PC J12-1")
Set tosheet = copysheet.Copy

Now, my compiler complains: "expression or object expected" when it
encounters the Copy function. I don't understand what it wants,
because according to Microsoft's library, this should work. Can
someone suggest a solution to this? Or another better way of creating
a copy of an existing worksheet?

Thanks in advance.

Gobind

 

[Bernie Deitrick]

It depnds on where you want the copy.

To keep it in the current workbook

copysheet.Copy Before:=Sheets(1)
Set tosheet = ActiveSheet

To move it to a new workbook

copysheet.Copy
Set tosheet = ActiveSheet

HTH,
Bernie
MS Excel MVP