I'd use:

Dim oOldSheet As Worksheet
Dim oNewSheet As Worksheet

Set oOldSheet = ActiveSheet

oOldSheet.Copy after:=oOldSheet
Set oNewSheet = ActiveSheet



Lazzaroni wrote:

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