Cerrar Hojas

Utiliza este codigo:

Sub CerrasLibros()
Dim Con As Long
Dim EsteLibro, Libro As String
EsteLibro = ThisWorkbook.Name
For Con = 1 To Workbooks.Count
Libro = Workbooks(Con).Name
'If Workbooks(Libro).Saved = False Then Workbooks(Libro).Save' Si desea que
se guarde el libro antes de cerrarlo (hay muchas mas opciones como preguntar
o cerrar sin salvar)
If Libro <> EsteLibro Then ' si son otros libros diferentes a este
Workbooks(Libro).Close
End If
Next Con
Workbooks(EsteLibro).Close ' por ultimo cierra el libro actual
End Sub



Luis Medina
Menufazt Utilidades y juegos en Excel
http://www11.brinkster.com/LUISM0/
"Mauro" escribió en el mensaje
news:

Mediante código deseo crear un botón que cierre algunos archivos
vínculados
que tengo abiertos, sin cerrar Ms Excel.

Agradezco de antemano a la persona que me pueda colaborar.

Gracias.

Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.783 / Virus Database: 529 - Release Date: 10/25/2004