Copiar una hoja dentro de un libro excel

[fleal]

Hola gente,
Pues eso, tengo un hoja con datos dentro de un libro de excel... pero no puedo hacer una copia de esa hoja dentro del mismo libro.

Este es el código del VB

Sheets("01").Select
Sheets("01").Copy Before:=Sheets(1)

Donde "01" es el nombre de la hoja a copiar"

Una ayuda por favor.

[fleal]

Así se hace

// copio la primera hoja
oExcel:Sheets( "01" ):Select()
oExcel:ActiveWorkbook:Sheets( "01" ):Invoke("Copy",oHoja)

// como ya son dos, ahora muevo la nueva hoja al final de la primera
oHoja2 := oExcel:Get( "ActiveSheet" )
oHoja2:Name := "02"

oExcel:ActiveWorkbook:Sheets( "01" ):Invoke("Move",oHoja2)


Todo es fácil cuando se tiene la solución