Copiar libro y abrirlo

bueno un pequeño aporte a lo mejor no es mucho y es muy sencilla pero a mi me ha ayudado con algunos archivos los cuales tengo en una misma carpeta y tengo que hacer varias copias espero que a alguien le pueda ayudar

en un boton

Sub Boton_Haga_clic_en ()

nbre=InputBox ("Ingrese nombre para la copia, sin extesión")
Ifnombre=""Then
Msg Box "Proceso cancelado"
Exit Sub
End If
copia=ruta&"\"&nbre&".xls"
ActiveWorkbook.SaveCopyAS.copia
Workbooks.Open copia

End Sub[/PHP]