|...Begin quote from old post...|
DerbyDad03 May 1, 2010 at 08:14:04 Pacific
If the sheets are in the same order as the names on the list, then renaming them is fairly simple.
Assuming the list of names is in Sheet1!A1:An, and assuming you have n + 1 sheets in your workbook (one for each name, starting with Sheet 2, plus Sheet 1 with the list), this code will rename each sheet, in order, based on the list in Sheet1!A1:An.
Dim nxtName As Integer
For nxtName = 1 To Sheets.Count - 1
Sheets(nxtName + 1).Name = Sheets(1).Cells(nxtName, 1)
If the sheets are not in the same order as the list, then things get a bit more complicated. If each name appeared someplace in that person's sheet, then the code could search each sheet for the name and then rename that specific sheet to match the name it was searching for.
Before I offer any code to accomplish that, I'd need to know a little bit about your workbook, such as whether the names appear in the same cell (or a specific) in each sheet; does only that person's name appear in the sheet; etc.
...End quote from old post...
Seems to work for me but:
My problem is that my info is in different cells(C2,C15,C28 etc)All in C but every 13th cell(C2-C769)
Hope this help.
Thanks in advance