ng = True
Set wbk = Nothing
Set wks = Nothing
lngSheetsInNewBook = Empty
strNewSourceFile = vbNullString
Set objCol = Nothing
lngCounter = Empty
lngLoop = Empty
End Sub
On Mon, Oct 3, 2011 at 1:59 PM, Chidurala, Shrinivas
mailto:shrinivas.chidur...@ci
]
Subject: Re: $$Excel-Macros$$ Splitting of files
Hi Shrinivas
Try :
Sub Mtest()
Dim Rng As Range
Dim ws As Worksheet
Dim shname As String
Dim i As Integer
Dim shn As Long
Dim mx As Variant
Dim x As Integer
Dim LR As Long
Dim sPath As String, sFileName As String
On Error Resume Next
Hi Shrinivas
Try :
Sub Mtest()
Dim Rng As Range
Dim ws As Worksheet
Dim shname As String
Dim i As Integer
Dim shn As Long
Dim mx As Variant
Dim x As Integer
Dim LR As Long
Dim sPath As String, sFileName As String
On Error Resume Next
Application.DisplayAlerts = False
Sheets("Temp").Delete
Applica
This is easy enough to do with a macro. However, please consider leaving all
in one file and simply use
data>filter>autofilter.
-Original Message-
From: Chidurala, Shrinivas
Sent: Saturday, October 01, 2011 6:04 AM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ Splitting o
