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

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



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

Set sem__ = Sheets("template").Copy(befo=Sheets(1))

ty