Macro to create separate tabs based on columns criteria

Attached is a sample spreadsheet in which I need a macro to create a separate tab for each customer in column A and copying/pasting the particular customer's lines over to the new tab. I need the column titles (line 1) to be at the top of each new tab as well. And ideally, the tab's name would be the customer's name. For an example, I manually created the tab Customer 4 to show one of the desired results. I want to keep the Master tab in tact if possible. Thank you.

Thank you. And is there anything I would need to change if there were more columns as this was only a sample. Or does this encompass all potential lines and all columns?

Just try and post back if you find anything wrong.

It created several new tabs and then got stuck and the debug highlighted this line. I have over 1000 lines and 100 different customer.

Sheets.Add(, Sheets(Sheets.Count)).Name = e

No idea from just that line.

Most probably the data in the cell.

What kind of error message are you getting?
If you upload a workbook that you are working with, I can find what is going wrong.

I attached the actual file. It created 8 new tabs and then stopped. I did notice on the ones it created, the column widths didn't auto-size. Can that be done as well? Thanks a million

Ahhhh! Got it! Thanks. Can the columns in the new tabs be set to be the same width as the master tab?

This replace all the invalid characters for the worksheet with under score "_" and chop the length upto 31 (maximun character length for the worksheet name) when exceeds 31 characters.

Please Login or Register  to view this content.

OMG you are amazing. Thank you!!!

You are welcome.

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED.

Also, you may not be aware that you can thank those who have helped you by clicking the small star icon located in the lower left corner of the post in which the help was given. By doing so you can add to the reputation(s) of those who helped.

Actually, one more thing. I don't need the customer's name on every single line in the new tabs. Can I have it placed in A1 only?

A1?
Replace test sub with this

Please Login or Register  to view this content.

Amazing!!! Thanks sooooo much.