Method Goto of Object Application Failed - RunTime Error 1004

[beloshi]

Hello Excel Gurus,

I am running the following code to do a simple task which is to bring all the sheets in the Workbooksheet to Position A1 and if there are scroll in the other sheet bring them to original scroll position with Columns like A... B...C ....D....E... etc etc.

I am getting the following Error although it is running in the other sheets but there is a particular sheet in which its throwing error : "Method Goto of Object Application Failed - RunTime Error 1004"

Sub Position()


Dim ws As Worksheet


For Each ws In Worksheets
    Application.Goto Reference:=ws.Range("A1"), Scroll:=True
Next


End Sub

Kindly Help would be really appreciated.

Best Regards and thank you in advance.

Beloshi.

 

[Norie]

Are any of the sheets in the workbook hidden?

 

[beloshi]

Are any of the sheets in the workbook hidden?

Yes Thank you I fixed it. There was a hidden sheet in the workbook.

Sub Position()


Dim ws As Worksheet


On Error Resume Next
For Each ws In Worksheets
    Application.Goto Reference:=ws.Range("A1"), Scroll:=True
Next
On Error GoTo 0
End Sub