Split Data based on 3 Columns into separate worksheets

Hello,

I need to split the data into worksheets (see attached) by the Advertiser column and then by the deal year and deal code columns. I need each worksheet to be named per advertiser and deal year_deal code. I took off and replaced the data since it is sensitive information.

Need help creating a macro or implicating one into the workbook to run for future reporting.

Thank you!

Give a chance to next code.
It assume data is in sheet "Data"

Please Login or Register  to view this content.

Thank you! For some reason it keeps saying error. The 'Sub SplitData()' is highlighted in yellow and 'DDD = ObjDic.keys'. Is there something I am doing wrong? Can you give me step by step detail on how to run the macro?

About the 'DDD = ObjDic.keys' statement, remove it, it was for debugging.
Does the macro working with the file sent?

Thank you, I took out the debug info.

It worked with your file but when I copy and paste the actual data under the Range it now keeps giving me an error and highlighting 'Worksheets(Worksheets.Count).Name = G'

Without a sample of your data it will difficult to understand...
Can you prepare a sample.

An issue is the sheet's name length : maxi = 30
Do a test with your data

how do I change the count? It is now highlighting 'Worksheets(Worksheets.Count).Name = G' in yellow.

You don't have to change count it is done automatically.
Does it happen for the first sheet to create?
The easiest way would be to send me a file

Here you go. Let me know if you need anything else.

Thank you.

See here your file.
I added an additional column to get the ADVERTISER name shorter
I removed ome sheets for file size issue to download

Thank you! How do I do that quickly on all columns that apply?

Use next code for column C

Please Login or Register  to view this content.