MrExcel Publishing
Your One Stop for Excel Tips & Solutions

please read me with this annoying macro...


Posted by Rembo on January 24, 2001 10:29 AM

i have recorded a macro to make the screen become bigger
and change it to auto_open..the problem is..its only affect
sheet 1 and not all the sheets in in that worobook(sheet2
and sheet3 remains as default) can someone tell
me how to make it affect to alll other sheeets to..thanks

here is the macro :

Sub auto_open()

Application.CommandBars("Standard").Visible = False
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Drawing").Visible = False
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayWorkbookTabs = False
End With
End Sub


Posted by Faster on January 24, 2001 1:58 PM


Private Sub Workbook_Open()
Application.ScreenUpdating = False
'only hides listed command bars
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Drawing").Visible = False
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False

Dim NumSheets
NumSheets = Sheets.Count
Dim i
For i = 1 To NumSheets
Sheets(i).Select
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayWorkbookTabs = False
End With
Next i
Sheets(1).Select
End Sub


Private Sub Workbook_Open()
Application.ScreenUpdating = False
'only hides commandbars coded
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Drawing").Visible = False
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False

Dim NumSheets
NumSheets = Sheets.Count
Dim i
For i = 1 To NumSheets
Sheets(i).Select
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayWorkbookTabs = False
End With
Next i
Sheets(1).Select
End Sub

Posted by Rembo on January 24, 2001 5:45 PM

Thanks Faster..it works like a charm. Appreciate it

Dim NumSheets NumSheets = Sheets.Count Dim i For i = 1 To NumSheets Sheets(i).Select With ActiveWindow .DisplayGridlines = False .DisplayHeadings = False .DisplayWorkbookTabs = False End With Next i Sheets(1).Select