| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Create 2nd, 3rd , 4th worksheet and so on
Hello from Steved
I pickup the below from the newsgroup. Please how to I add the extra worksheets another 8. I will name them Roskill, Papakura, Wiri, Shore, Orewa, Swanson, Panmure and Waiheke. Sub AddNameNewSheet2() Dim CurrentSheetName As String CurrentSheetName = ActiveSheet.Name Sheets.Add On Error Resume Next ActiveSheet.Name = "City" Do Until Err.Number = 0 Err.Clear Loop On Error GoTo 0 Sheets(CurrentSheetName).Select End Sub Thankyou. |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Create 2nd, 3rd , 4th worksheet and so on
Worksheets.Add.Name = "Roskill"
Worksheets.Add.Name = "Papakura" Worksheets.Add.Name = "Wiri" Worksheets.Add.Name = "Shore" Worksheets.Add.Name = "Orewa" Worksheets.Add.Name = "Swanson" Worksheets.Add.Name = "Panmure" Worksheets.Add.Name = "Waiheke" -- HTH RP (remove nothere from the email address if mailing direct) "Steved" wrote in message ... Hello from Steved I pickup the below from the newsgroup. Please how to I add the extra worksheets another 8. I will name them Roskill, Papakura, Wiri, Shore, Orewa, Swanson, Panmure and Waiheke. Sub AddNameNewSheet2() Dim CurrentSheetName As String CurrentSheetName = ActiveSheet.Name Sheets.Add On Error Resume Next ActiveSheet.Name = "City" Do Until Err.Number = 0 Err.Clear Loop On Error GoTo 0 Sheets(CurrentSheetName).Select End Sub Thankyou. |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Create 2nd, 3rd , 4th worksheet and so on
Thankyou.
"Bob Phillips" wrote: Worksheets.Add.Name = "Roskill" Worksheets.Add.Name = "Papakura" Worksheets.Add.Name = "Wiri" Worksheets.Add.Name = "Shore" Worksheets.Add.Name = "Orewa" Worksheets.Add.Name = "Swanson" Worksheets.Add.Name = "Panmure" Worksheets.Add.Name = "Waiheke" -- HTH RP (remove nothere from the email address if mailing direct) "Steved" wrote in message ... Hello from Steved I pickup the below from the newsgroup. Please how to I add the extra worksheets another 8. I will name them Roskill, Papakura, Wiri, Shore, Orewa, Swanson, Panmure and Waiheke. Sub AddNameNewSheet2() Dim CurrentSheetName As String CurrentSheetName = ActiveSheet.Name Sheets.Add On Error Resume Next ActiveSheet.Name = "City" Do Until Err.Number = 0 Err.Clear Loop On Error GoTo 0 Sheets(CurrentSheetName).Select End Sub Thankyou. |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Create new workbook and new worksheet and close. Worksheet not sav | Excel Worksheet Functions | |||
| Macro to Create New Worksheet and Reference Cell in Old Worksheet As Tab Name - "Object Required" Error | Excel Discussion (Misc queries) | |||
| Can I create a worksheet menu to select each other worksheet | Excel Discussion (Misc queries) | |||
| How do I create a worksheet within a worksheet in Excel? | Excel Worksheet Functions | |||
| Using VBA to create a new worksheet, and then target new worksheet | Excel Discussion (Misc queries) | |||
Hybrid Mode
