Notice: This website is an unofficial Microsoft Knowledge Base (hereinafter KB) archive and is intended to provide a reliable access to deleted content from Microsoft KB. All KB articles are owned by Microsoft Corporation. Read full disclaimer for more details.

XL: Goto Method Fails When Custom Dialog Box Visible


View products that this article applies to.

This article was previously published under Q137807

↑ Back to the top


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

↑ Back to the top


Cause

This behavior occurs when you use code similar to the following when 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 or Microsoft Excel 97 or Microsoft Excel 98 Macintosh Edition.

↑ Back to the top


Workaround

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

↑ Back to the top


Status

Microsoft has confirmed this to be a problem in the Microsoft products listed at the beginning of this article.

↑ Back to the top


Keywords: KB137807, kbprogramming, kberrmsg, kbdtacode, kbbug

↑ Back to the top

Article Info
Article ID : 137807
Revision : 5
Created on : 10/11/2006
Published on : 10/11/2006
Exists online : False
Views : 40