Macro to identify & name tabs based on data in spreadsheet

[tcnt9176]

Here is my challenge. I am trying to build a macro that will take data and separate it on different tabs based on the date column. It may be the last 6, 12, or even 18 months depending on what the spreadsheet has. I need the macro to determine the names of the separate tabs that would just be the month and basically have a count of different things based on the date. I hope that makes sense. Any ideas? Thanks for your help!!

 

[ColinKJ]

Hi tcnt9176,

I'll atempt to asist you with this.

Is it possible for you to copy and paste into your post an example of your data.

If not, how many columns of data do you have, and which is the date column.

Is your original data all on one sheet, and are the rest of the sheets in the WB currently blanks.

Regards

ColinKj

 

[tcnt9176]

Thanks ColinKj. I was actually able to come up with a way to name the separate tabs appropriately. I 1st made a pivot table to determine how many and what the names of the tabs should be and then used this script. My only problem now is that it errors out after it gets to the end of my list. It adds 1 additional sheet (that I do not need) and then gives me run-time error '1004' b/c my list has ended and it doesn't know what to name it. Do you or anyone know how to stop this after the last populated cell in my list? Thanks!!!


For Each c In Sheets("Sheet1").Range("A1:A24")
Sheets.Add
ActiveSheet.Name = Right(c.Value, 30)
Next c