Limpiar un Archivo para achicar tamaño

Este codigo debe limpiar los datos residuales de un archivo después 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