Copiar hoja, renombrarla y moverla

[jesus miguel]

Hola amig@s:

Tengo los siguientes códigos:

Sub Nuevahoja()

Sheets("A").Select

Sheets("A").Copy before:=Sheets(4)

' renombramos la hoja


ActiveSheet.Name = Range("B1").Value


End Sub

[/CODE]

Bueno con estos códigos lo que hago es copiar la hoja "A" y después renombrarla con el valor de la celda B1, lo que quiero es que la nueva hoja creada se mueva a mi otro libro de excel que esta con el nombre de Clientes, que código me faltaría?.

Gracias

Saludos

Jesús

[jzenteno]

Hola @[uSER=56845]jesus miguel[/uSER]

Prueba con esta.

Sub nuevahoja ()

'

    Cells.Select

    Selection.Copy

    Windows("Clientes.xlsm").Activate

    Sheets.Add After:=Sheets(Sheets.Count)

    Range("A1").Select

    ActiveSheet.Paste

    ActiveSheet.Name = Range("B1").Value

End Sub[/CODE]

Slds. JL.

[jesus miguel]

Estña perfecto, un abrazo

Saludos

Jesús

PD. tema solucionado