Copy Sheets

[Edgar]

Hi

We Regularly export data from our accounting system to a
wb. Each export we do creates a sheet in the workbook.
This gets named by the product it relates to which is
identified by a 2 character code ie AU TP JS etc and then
a 6 digit unique number.

We need to copy each sheet to its own seperate wb - one
for each product. I was thinking of having an index page
with a list of all sheets in column A and in column B a
character to determine if the sheet has already been
copied or not.

I was then writing to a macro to search the sheet names
for the product code and then to copy the sheets to their
respective wbs.

Does anyone know of any good websites for an index page
which list all sheet names? Also how would I search the
first two characters of a sheet name to determine what
product it is?

Any other suggestions would be appreciated.

TIA

Edgar

 

[Tom Ogilvy]

Left(activeSheet.Name,2) = "AU"

for each sh in Thisworkbook.Worksheets
debug.print sh.name, left(sh.name,2)
Next