Originally Posted by
YellowLabPro
Nalini,
Not to worry, but 1mg is now very small comparatively speaking. If you want it smaller to email, you could still use the first suggestions... zip, or run this code prior, then zip.
[vba]
Sub ExcelDiet()
Dim x As Integer
Dim LastRow As Long
Dim LastCol As Integer
Application.ScreenUpdating = False
On Error Resume Next
For x = 1 To Sheets.Count
Sheets(x).Activate
LastRow = Cells.Find(What:="*", after:=Range("A1"), LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
LastCol = Cells.Find(What:="*", after:=Range("A1"), LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
Range(Cells(1, LastCol + 1), Cells(65536, 256)).Delete
Range(Cells(LastRow + 1, 1), Cells(65536, 256)).Delete
Next x
On Error GoTo 0
Application.ScreenUpdating = True
[a1].Activate
End Sub
[/vba]