Worksheet.Copy Expected Function or Variable Error

[Guest]

This seems fairly straight forward to me, yet it produces a compile error:
"Expected Function or variable."

Dim oOldSheet As Worksheet
Dim oNewSheet As Worksheet

Set oOldSheet = ActiveSheet

Set oNewSheet = oOldSheet.Copy(oOldSheet)

Any suggestions? Thanks.

 

[Dave Peterson]

I'd use:

Dim oOldSheet As Worksheet
Dim oNewSheet As Worksheet

Set oOldSheet = ActiveSheet

oOldSheet.Copy after:=oOldSheet
Set oNewSheet = ActiveSheet