XL: How To Add a Sheet After Last Sheet in a Single Action

ID: Q107622

The information in this article applies to:

Microsoft Excel for Windows, versions 5.0, 5.0c
Microsoft Excel for the Macintosh, versions 5.0, 5.0a
Microsoft Excel for Windows 95, versions 7.0, 7.0a

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.

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, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This article assumes that you are familiar with the programming language being demonstrated and the tools used to create and debug procedures. Microsoft support professionals 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 needs. If you have limited programming experience, you may want to contact the Microsoft fee-based consulting line at (800) 936-5200. For more information about the support options available from Microsoft, please see the following page on the World Wide Web:

http://www.microsoft.com/support/supportnet/overview/overview.asp

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

Keywords : kbprg PgmOthr PgmHowto
Version : MACINTOSH:5.0,5.0a; WINDOWS:5.0,5.0c,7.0,7.0a
Platform : MACINTOSH WINDOWS
Issue type : kbinfo