XL98: Sample Macro to Open or Activate a Workbook (184504)

SUMMARY

When you activate a workbook with a Visual Basic for Applications procedure, the workbook must first be open. If the workbook is closed, you receive one of the following error messages:

Run-time error '1004':
Workbook method of Application class failed

-or-

Run-time error '9':
Subscript out of range

MORE INFORMATION

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. The example that follows switches to a workbook named Book2 if it is already open or opens Book2 if it is closed. To use the example macro, follow these steps:

Start Microsoft Excel 98.
Press OPTION+F11 to start the Visual Basic Editor.
On the Insert menu, click Module

Enter the following code into the new module:

      Sub ActivateSheet()

      ' This macro assumes that there is already a workbook named 'Book2'
      'either in the current folder or currently open.
             On Error GoTo ErrorHandler
             Workbooks("Book2").Activate
             ' The following line halts the macro before the error handler
             ' is reached.
             Exit Sub
      ErrorHandler:
             Workbooks.Open filename:="Book2"

End Sub

REFERENCES

For more information about error handling, from the Visual Basic Editor, click Contents And Index on the Help menu (or on the Balloon Help menu if you are using a version of the Macintosh operating system earlier than 8.0), click the Index button in Microsoft Excel Help, type the following text

error handling

and then click Show Topics. Select the "On Error Statement" topic, and click Go To. If you are unable to find the information you need, ask the Office Assistant.