Angela
09-19-2012, 08:05 AM
Hello everyone,
I have a workbook called "render" with sheet1 named "return" and when I open "return" sheet I would like the following format to be applied to the whole page.
Private Sub Workbook_Activate()
On Error Resume Next
With Application
.DisplayFullScreen = True
.CommandBars("Worksheet Menu Bar").Enabled = False
Application.ActiveWindow.DisplayGridlines = False
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.DisplayWorkbookTabs = False
Range("A1").Select
End With
End Sub
The good thing is that it does that, it removes the grid, bars and so on, but unfortunately this format applies to every single excel page in my computer. How do I limit my code to only current workbook called "render" and applied only to the sheet1 called "return".
Thank you for your help, angela.
pls don't laugh, i'm just a hopeless starter.
I have a workbook called "render" with sheet1 named "return" and when I open "return" sheet I would like the following format to be applied to the whole page.
Private Sub Workbook_Activate()
On Error Resume Next
With Application
.DisplayFullScreen = True
.CommandBars("Worksheet Menu Bar").Enabled = False
Application.ActiveWindow.DisplayGridlines = False
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.DisplayWorkbookTabs = False
Range("A1").Select
End With
End Sub
The good thing is that it does that, it removes the grid, bars and so on, but unfortunately this format applies to every single excel page in my computer. How do I limit my code to only current workbook called "render" and applied only to the sheet1 called "return".
Thank you for your help, angela.
pls don't laugh, i'm just a hopeless starter.