Hi...
When starting an Excel Application saved as Excel Complement. The following error was prompted:
Run-Time Error 1004
Error in _Global Object Worksheets Method
The problematic code :
Sub Auto_open()
'Modificacion de la GUI de Excel
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Application.DisplayStatusBar = False
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Drawing").Visible = False
Application.DisplayFormulaBar = False
For i = 1 To Int(Worksheets.Count) 'This line is causing the error
Worksheets(i).Activate
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
Next i
Sheets(1).Select
Range("A44").Select
ActiveWindow.ScrollRow = 1
How can i solve this
Runtime Error 1004, Worksheets method error
bjaroszek
Hi..
This is the solution:
For i = 1 To ThisWorkbook.Worksheets.Count
ThisWorkbook.Worksheets(i).Activate
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
Next i
steveareno
works ok with me.
Try using ActiveWorkbook.Worksheets.
or you could also replace the loop with......
Dim wrkbk as Worksheet
For Each wrkbk in ActiveWorkbook.Worksheets
But its all working ok when I run it.