Compactar un archivo excel

Intenta ejecutando esta macro

sub LimpiaHojas()
dim w as worksheet
for each w in activeworkbook.worksheets
debug.print w.usedrange.address
next
end sub


"jravles" escribió en el mensaje
news:

Hola grupo!
Tengo un archivo excel que pesa mas de 15 Mb. hay alguan opcion
para poder compactar este archivo i que optimice su contenido?

Gracias