Copiar hoja y renombrarla

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

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