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

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

  -or-

  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 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 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/refguide/default.asp

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

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

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