Limpiar un Archivo para achicar tamaño

Te refieres a que deseas borrar las hojas por completo y dejar en blanco el
libro ?

saludos

hola, Fabian !

Este codigo debe limpiar los datos residuales de un archivo despues de borrarlos?
Pregunto porque no produce cambios!
Sub Test()
Dim Wk As Worksheet
For Each Wk In ThisWorkbook.Worksheets
Debug.Print Wk.UsedRange.Address
Next
End Sub

si como resultado del codigo anterior sigues 'viendo' celdas [vacias] que estan 'ocupando memoria'...
[seguramente] dichas celdas tienen formatos personalizados [color, fuente, bordes, etc.] -?-

comentas [si hubiera] algun detalle 'distinto' ?
saludos,
hector.

hola, [de nuevo], Fabian !

la otra alternativa es que para 'borrar' los datos, NO uses la tecla {Supr} :))
sino las opciones del menu edicion / borrar > TODO -?-

saludos,
hector.

Este codigo debe limpiar los datos residuales de un archivo despues de borrarlos?
Pregunto porque no produce cambios!
Sub Test()
Dim Wk As Worksheet
For Each Wk In ThisWorkbook.Worksheets
Debug.Print Wk.UsedRange.Address
Next
End Sub

si como resultado del codigo anterior sigues 'viendo' celdas [vacias] que estan 'ocupando memoria'...
[seguramente] dichas celdas tienen formatos personalizados [color, fuente, bordes, etc.] -?-

comentas [si hubiera] algun detalle 'distinto' ?
saludos,
hector.

Gracias por desasnarme, ahora voy a probar las alternativas que me diste!!!
Gracias Héctor!!!!!!!!!

Hola Héctor!
Hasta ahora no pude conseguir resultados, escribi esto:
Sub LimpiarCeldaXCelda()
Dim R As Range
Dim Wk As Worksheet
For Each Wk In ThisWorkbook.Worksheets
For Each R In Wk.Cells
If R = "" Then R.Clear
Next
Next
End Sub

Si hubiese celdas con formatos este codigo tendria que terminar con el
problema de tamaño del archivo, si no es asi avisame!! Please!
Gracias.