Set sem__ = Sheets("template").Copy(before:=Sheets(1))

[[email protected]]

can someone help me on this one .. i cant figured it why i get error
424



Set sem__ = Sheets("template").Copy(before:=Sheets(1))


ty

[Jim Cone]

This works...
Dim sem__ As Excel.Worksheet
Sheets("template").Copy before:=Sheets(1)
Set sem__ = ActiveSheet

Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware


<[email protected]>
wrote in message
can someone help me on this one .. i cant figured it why i get error 424

Set sem__ = Sheets("template").Copy(before:=Sheets(1))

ty

[NickHK]

If you look at the Copy method of the Sheets collection in the Object
browser, you'll see that it is defined as "Sub Copy([Before], [After])".
As a Sub it has no return value and consequently you have nothing to Set
"sem__" equal to.
If it was a function (e.g. WorkSheets.Add; "Function Add([Before], [After],
[Count], [Type]) As Object") then you could as it return a value, an Object
in this case.

NickHK

<[email protected]> wrote in message
news:[email protected]...
> can someone help me on this one .. i cant figured it why i get error
> 424
>
>
>
> Set sem__ = Sheets("template").Copy(before:=Sheets(1))
>
>
> ty
>