Share via

Run time error 1004

Anonymous
2020-09-02T11:52:03+00:00

Hi,

When I enable content I am getting Run time error 1004 "Method 'Goto' of object '_Application failed

Please help on this

Private Sub Workbook_Open()

Application.Goto Worksheets("Postal -ID").Range("V8")

Application.Goto Worksheets("Country - ID").Range("V8")

Application.Goto Worksheets("Instructions").Range("A1")

End Sub

Microsoft 365 and Office | Excel | For home | Windows

Locked Question. This question was migrated from the Microsoft Support Community. You can vote on whether it's helpful, but you can't add comments or replies or follow the question.

0 comments No comments

Answer accepted by question author

Anonymous
2020-09-02T14:57:19+00:00

Hi PadminiE,

I apologize for the inconvenience. Check to make sure you have the latest version of Excel. Go to the Help menu and select check for updates. If that doesn't work, check the suggested workarounds on this links related to your issue.

https://www.excelguru.ca/forums/showthread.php?...

http://www.repairexcelfile.com/how-to-fix-runti...

Standard Disclaimer: This is a non-Microsoft website. The page appears to be providing accurate, safe information. Watch out for ads on the site that may advertise products frequently classified as a PUP (Potentially Unwanted Products). Thoroughly research any product advertised on the site before you decide to download and install.

Hope this helps,

Dianne

Was this answer helpful?

0 comments No comments

4 additional answers

Sort by: Most helpful
  1. Anonymous
    2020-09-02T14:30:48+00:00

    I tried preparing new template but still I am getting same error only for the below ones:

    Private Sub Workbook_Open()

    Application.Goto Worksheets("Instructions").Range("A1")

    Application.Goto Worksheets("Postal-ID").Range("V8")

    Application.Goto Worksheets("Counrty-ID").Range("V8")

    End Sub

    and  this too:

    Private Sub Workbook_Open()

        Range("V8").Select

    End Sub

    Private Sub Workbook_SheetActivate(ByVal Ws As Object)

        Ws.Range("V8").Select

    End Sub

    Till same error

    Was this answer helpful?

    0 comments No comments
  2. Anonymous
    2020-09-02T12:43:47+00:00

    Hi PadminiE,

    Thank you for reaching out. I'm Dianne, an Independent Advisor and a Microsoft User like you here to help you with this issue. To repair Runtime error in excel, please try creating a new excel template. To do this, please execute the following steps,

    1.Start your Excel application.

    1. Make a fresh new Excel workbook, after then delete the entire sheets present on it leaving only a single one.
    2. Now format the workbook as per your need or like the way you want to design in your default template.

    4.Tap to the File>Save As option

    1. Now in the field of File name, assign name for your template.
    2. On the side of Save as type there is a small arrow key, make a tap on it. From the opened drop menu
    3. Tap to Save
    4. After the successful creation of the template, now you can programmatically insert it by making use of following code:

    Add Type:=path\filename

    Remarks:

    From the above code, you have to replace the path\filename with the complete path including the file name. For assigning the exact location of the sheet template you have just created.

    You may also check the suggested workarounds on the link below and see if it helps,

    http://www.repairmsexcel.com/blog/how-to-fix-ru...

    Standard Disclaimer: This is a non-Microsoft website. The page appears to be providing accurate, safe information. Watch out for ads on the site that may advertise products frequently classified as a PUP (Potentially Unwanted Products). Thoroughly research any product advertised on the site before you decide to download and install.

    Hope it helps,

    Stay safe and healthy,

    Dianne

    Was this answer helpful?

    0 comments No comments
  3. Anonymous
    2020-09-02T12:21:08+00:00

    Frist sheet is "Instructions", second sheet is "Postal -ID" and Thrid sheet is "Country -ID".

    Instructions sheet Colums are visible from A to N and rest aof the columns are hided

    I also found a code in Microsoft community and I tried below:

    Private Sub Workbook_Open()

        Range("V8").Select

    End Sub

    Private Sub Workbook_SheetActivate(ByVal Ws As Object)

        Ws.Range("V8").Select

    End Sub

    I got the same "Run time error 1004 "Method 'Goto' of object '_Application failed

    Was this answer helpful?

    0 comments No comments
  4. Anonymous
    2020-09-02T12:00:51+00:00

    Is the first sheet called Postal -ID or Postal - ID?  The second application.goto line has a space either side of the - symbol

    Was this answer helpful?

    0 comments No comments