nombrar archivos continuacion

Hola KL, Disculpa si no me he expresado bien en mi requerimiento del 16/02, pero resulta que las instrucciones que me has enviado (que escribo a continuación) me genera un error en la última linea. Sub Test() Dim Nombre As String ...