Dear SG,
Please open all files on share drive & then run this macro at your end.
Revert me if get any issues in it.
On Thu, Jul 5, 2012 at 7:12 PM, SG wrote:
> hi Noorain,
>
> thanks alot.I haven't tried this.Before trying, i would like to ask some
> queries.I'm not too good in macros...will
hi Noorain,
thanks alot.I haven't tried this.Before trying, i would like to ask some
queries.I'm not too good in macros...will this macro reduce the size of
files placed at share drive or should i open all files on share drive &
then run this macro at my end??? Please clear my doubts on it.
Dear SG.
Please try it..
Option Explicit
Sub SHRINK_EXCEL_FILE_SIZE()
Dim WSheet As Worksheet
Dim CSheet As String 'New Worksheet
Dim OSheet As String 'Old WorkSheet
Dim Col As Long
Dim ECol As Long 'Last Column
Dim lRow As Long
Dim BRow As Long 'Last Row
Dim Pi
