Knowledge Base |

# How To Add a Sheet After Last Sheet in a Single Action

Article ID: 107622

Article Last Modified on 10/11/2006

APPLIES TO

- Microsoft Excel 95a
- Microsoft Excel 5.0c
- Microsoft Excel 5.0a for Macintosh

This article was previously published under Q107622

## SUMMARY

In the versions of Microsoft Excel listed at the beginning of this article, it is not possible to add a new sheet after the last sheet in the workbook in a single action. For example, if you have a workbook that contains Sheet1 and Sheet2 (in left-to-right sheet tab order), you cannot add a new sheet to the right of Sheet2.
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.

## MORE INFORMATION

If your application requires that a new sheet be added or inserted after the last sheet in the workbook, there are two ways that you can achieve this task:

- 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 Example

Microsoft 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.

       Sub AddNewSheet()

          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
          '                                     sheet.
          Worksheets.Add

          ' This line makes the new sheet (which is also the active sheet) the
          ' last sheet in the workbook.
          ActiveSheet.Move After:=Sheets(ActiveWorkbook.Sheets.Count)
          Application.ScreenUpdating = True     ' Enables screen refreshing.

       End Sub

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:
Add method of Sheet class failed
For example, the following command will return an error message:

       Worksheets.Add After:=Sheets(ActiveWorkbook.Sheets.Count)

because it attempts to add a new sheet after the last sheet in the workbook.

Additional query words: XL7 XL5 5.0 XL

Keywords: kbinfo kbprogramming KB107622