* wbkNew.Close 1*
>> >>
>> >> *Next lngUniqeCount*
>> >>
>> >> *End With*
>> >>
>> >> *wksSheet.AutoFilterMode = False*
>> >>
>> >> *Application.ScreenUpdating = True*
Mode = False*
> >>
> >> *Application.ScreenUpdating = True*
> >>
> >> *Range("rngRemoveDuplicate").CurrentRegion.ClearContents*
> >>
> >> * MsgBox lngUniqeCount & " Files has been splited,
uot;).CurrentRegion.ClearContents*
>>
>> * MsgBox lngUniqeCount & " Files has been splited, Plase find your
>> files at " & vbCrLf & ThisWorkbook.Path*
>>
>> *'Free Memory*
>>
>> *Set rngRange = Nothing*
>>
>> *
et wbkNew = Nothing*
>
> * *
>
> *End Sub*
>
> * *
>
> *See the post on
> *
> http://excelpoweruser.blogspot.in/2012/05/split-data-into-multiple-workbook.html
>
>
> ** **
>
> * *
>
> * *
>
> *Regards*
>
> *Rajan verma*
>
&