| Home |
| Search |
| Today's Posts |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Tab names
Sub NewSheets()
Dim K As Long, Inndex As Long Dim Nayme As String Sheets("LIST").Select Range("B1").Select Do Until ActiveCell.Value = "" Nayme = ActiveCell.Value Sheets("bob").Copy After:=Sheets(Sheets.count) ActiveSheet.Name = Nayme Range("A6").Select ActiveCell.Formula = "=LIST!C" & 1 + K Sheets("LIST").Select ActiveCell.Offset(1, 0).Select K = K + 1 Loop End Sub -- Regards, Tom Ogilvy "Hru48" wrote in message ... Thats great, but i need the tab names to be taken from column b and the names which are updated in a6 of each new sheet to still be taken from column c. any ideas? cheers -- Hru48 ------------------------------------------------------------------------ Hru48's Profile: http://www.excelforum.com/member.php...o&userid=24895 View this thread: http://www.excelforum.com/showthread...hreadid=471743 |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| converting email address names in a range of cells to real names | Excel Worksheet Functions | |||
| using the Excel generic worksheet names instead of user-given names in code | Excel Discussion (Misc queries) | |||
| Sorting and matching rows of names with Socials with master list and eliminating the extra names | Excel Worksheet Functions | |||
| return all worksheet tab names and chart sheet tab names in report - an example | Excel Programming | |||
| Change names of files in a folder to match names in Excel Column | Excel Programming | |||
Threaded Mode
