XL2000: Goto Method Fails When Custom Dialog Box Is Visible (213812)
The information in this article applies to:
This article was previously published under Q213812 SYMPTOMS
When you run a Microsoft Visual Basic for Applications macro that uses the
Application.Goto method to jump to a cell or range of cells, you may
receive one of the following error messages:
Run time error '1004'
Goto method of Application class failed
-or-
Run-time error '1004':
Method 'Goto' of object '_Application' failed
CAUSE
This behavior occurs when you use code similar to the following while a
custom dialog box is active:
Application.Goto _
Reference:=Workbooks("Book1").Sheets("Sheet1").Range("C5"), _
Scroll:=True
NOTE: This does not occur when you use a custom UserForm in Microsoft Excel 2000.
WORKAROUNDMicrosoft 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 a Microsoft Certified Partner or the Microsoft fee-based
consulting line at (800) 936-5200. For more information about Microsoft Certified
Partners, please visit the following Microsoft Web site:
For more information about the support options that are available and about how to contact Microsoft, visit the following Microsoft Web site:
To work around this problem, use macro code similar to the following
example.
Sample Visual Basic Procedure
' Select the appropriate section of the worksheet.
' (This code has similar results to the Reference:= argument
' that you use with the Goto command.)
Workbooks("Book1").Activate
Sheets("Sheet1").Select
Range("C5").Select
' Scroll such that the selected cell is in the top left corner of the
' active window. (This code has similar results to the Scroll:=True
' argument that you use with the Goto command.)
ActiveWindow.ScrollColumn = ActiveCell.Column
ActiveWindow.ScrollRow = ActiveCell.Row
STATUSMicrosoft has confirmed that this is a problem in the Microsoft products that are listed at the beginning of this article.
| Modification Type: | Minor | Last Reviewed: | 10/11/2006 |
|---|
| Keywords: | kbbug kbdtacode kberrmsg kbpending kbProgramming KB213812 |
|---|
|