This applies whether you add the new sheet manually, by using Visual Basic code, or by using XLM macro code.
It is possible to add a new sheet to a workbook and make the sheet become the last sheet in the workbook, but at least two separate actions are required to do this.
- If you manually add the new sheet to the workbook (by choosing the appropriate item on the Insert menu, for example), you can drag the new sheet's tab to the right of all of the other sheet tabs. This makes the new sheet also become the last sheet in the workbook. -or-
- If you are using a Visual Basic procedure to add the new sheet to the workbook, you can use the Move method to move the new sheet to the proper location. The following example demonstrates using this method.
Visual Basic Code ExampleMicrosoft provides programming examples for illustration only, without warranty either expressed or implied. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. Microsoft support engineers can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific requirements.
This sample Visual Basic code inserts a new sheet into a workbook and makes the new sheet become the last sheet in the workbook by moving it to the right of the rightmost sheet. This example assumes you have a workbook that contains at least one Visual Basic module and any number of other sheets.
To run the example, position the cursor in the line that reads "Sub AddNewSheet()" and either press F5 or click Start on the Run menu.
Application.ScreenUpdating = False ' Prevents screen refreshing.
' This line adds a new worksheet to the workbook. Alternatively, use:
' DialogSheets.Add Adds a dialog sheet.
' Charts.Add Adds a chart sheet.
' Modules.Add Adds a Visual Basic module.
' Sheets.Add Type:=xlExcel4MacroSheet Adds an MS Excel 4.0 macro
' This line makes the new sheet (which is also the active sheet) the
' last sheet in the workbook.
Application.ScreenUpdating = True ' Enables screen refreshing.
When you run the AddNewSheet Sub procedure, it will add a new sheet to the active workbook and make the new sheet become the last sheet in the workbook.
If you try to add a new sheet after the last sheet in the workbook, all in a single action, you will receive the following error message:
For example, the following command will return an error message:
because it attempts to add a new sheet after the last sheet in the workbook.
ID članka: 107622 – Zadnji pregled: 10. okt. 2006 – Revizija: 1