S
Sandy
I have the following Sub which does the job - however when the section of
code (asterisked) to hide the Row and Column heading runs, all the sheets
(there are 28) are opened in turn causing a lot of screen flicker - is there
any way that the code could be changed to avoid this happening.
Sandy
Sub Hide_Toolbars()
Open_All_Sheets
Application.ScreenUpdating = False
Application.EnableEvents = False
************
For Each sh In Worksheets
sh.Activate
ActiveWindow.DisplayHeadings = False
Next
************
Sheets("Data Input").Select
For Each wksht In Worksheets
With Application
.DisplayFullScreen = False
.DisplayFormulaBar = False
.CommandBars("Worksheet Menu Bar").Enabled = False
.CommandBars("Standard").Visible = False
.CommandBars("Formatting").Visible = False
.CommandBars("Drawing").Visible = False
End With
Next
Lock_All_Sheets
Sheets("Data Input").Select
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
code (asterisked) to hide the Row and Column heading runs, all the sheets
(there are 28) are opened in turn causing a lot of screen flicker - is there
any way that the code could be changed to avoid this happening.
Sandy
Sub Hide_Toolbars()
Open_All_Sheets
Application.ScreenUpdating = False
Application.EnableEvents = False
************
For Each sh In Worksheets
sh.Activate
ActiveWindow.DisplayHeadings = False
Next
************
Sheets("Data Input").Select
For Each wksht In Worksheets
With Application
.DisplayFullScreen = False
.DisplayFormulaBar = False
.CommandBars("Worksheet Menu Bar").Enabled = False
.CommandBars("Standard").Visible = False
.CommandBars("Formatting").Visible = False
.CommandBars("Drawing").Visible = False
End With
Next
Lock_All_Sheets
Sheets("Data Input").Select
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub