Limpiar un Archivo para achicar tamaño

hola, Fabian !

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.

'teoricamente'... el procedimiento es correcto [aunque pudiera resultar algo 'leennnto' si se trata de muchas celdas/hojas]
prueba con la siguiente macro 'evitando' el ir 'celda X celda' -> del libro 'activo' <-
y [de pasadita']... 'restableciendo' el rango usado de cada hoja ;)
Sub Limpiar_Formatos()
Dim Hoja As Worksheet
On Error Resume Next
For Each Hoja In Worksheets
Hoja.UsedRange.SpecialCells(xlCellTypeBlanks).Clear
Debug.Print Hoja.UsedRange.Address
Next
' la siguiente linea es OPCIONAL... '
ActiveWorkbook.Save
End Sub

saludos,
hector.

Gracias, funciona perfecto!