Hi Anil,
Thanks for your help i Appreciate
On Tuesday, September 3, 2013 8:38:17 AM UTC+4, अनिल नारायण गवली wrote:
Dear Prajakt Pande,
Has it has lots of rows init. It will take nearly 5 min, so have patients.
Warm Regards,
Gawli Anil.
Thanks Regards,
Gawli Anil Narayan
Software
Try This
Sub WbSpliter()
Dim Sh As Worksheet, Keys, LRow As Long
Const SavePath As String = C:\Workbook
Set Sh = ActiveSheet
Key = Sh.Range(R2: Sh.Range(R2).End(xlDown).Address).Value2
Application.DisplayAlerts = False
MakeDir SavePath
For LRow = LBound(Key) To
Dear Prajakt Pande,
Has it has lots of rows init. It will take nearly 5 min, so have patients.
Warm Regards,
Gawli Anil.
Thanks Regards,
Gawli Anil Narayan
Software Developer,
Abacus Software Services Pvt Ltd
On Tue, Sep 3, 2013 at 10:07 AM, अनिल नारायण गवली
gawlianil8...@gmail.com wrote: