Dynamically creating worksheet tabs based on unique values in a column

[DoctorV]

I have a workbook which runs a macro that utilizes Microsoft Query t
pull data from an Access Query into a Sheet named MainForm. This par
works just fine. After this happens, I need another Macro to determin
the unique values in Column D (Field Name in Row 1 for this is Mo
Number) range is cell d2 to however many rows are retrieved, and the
create new worksheet tabs based on the Unique Value and copy and past
all corresponding data and name the new sheet tab whatever the Uniqu
Value is.

Example: Mod Number would have Unique Values of 00 01 02 03 04 05. I
would then create a worksheet tabs named 00 01 02 03 04 05 and the
copy all of the data in the MainForm tab where Mod Number = 00 into th
newly created 00 tab

 

[Ron de Bruin]

Try this DoctorV
http://www.rondebruin.nl/copy5.htm

Post back if you need help

 

[Ken Wright]

Another option might be to have the macro create a Pivottable based on your
data, throw the Mod into the page fields and then have it use the Show pages
option to create all the individual pages for you.