Sub abrir() NombreArchivo = InputBox("¿nombre del archivo?", "Abrir Archivo", 1) Workbooks.Open Filename:= _ "c:\primero\" + NombreArchivo + ".xls" End Sub