This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
' ---------------------------------------------------------------- | |
' Procedure Name: RemovePrintLines | |
' Purpose: Remove all dotted/dashed print lines in the workbook | |
' Procedure Kind: Sub | |
' Procedure Access: Public | |
' Author: sb172a | |
' Date: 7/3/2018 | |
' ---------------------------------------------------------------- | |
Sub RemovePrintLines() | |
Application.ScreenUpdating = False |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
' ---------------------------------------------------------------- | |
' Procedure Name: ToggleGridlines | |
' Purpose: Toggle the gridlines for all the sheets in the workbook | |
' Procedure Kind: Sub | |
' Procedure Access: Public | |
' Author: sb172a | |
' Date: 7/9/2018 | |
' ---------------------------------------------------------------- | |
Sub ToggleGridlines() | |
Application.ScreenUpdating = False |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
' Procedure Name: ToggleHeadings | |
' Purpose: Toggle the cell headings for all the sheets in the workbook | |
' Procedure Kind: Sub | |
' Procedure Access: Public | |
' Author: sb172a | |
' Date: 7/9/2018 | |
' ---------------------------------------------------------------- | |
Sub ToggleHeadings() | |
Application.ScreenUpdating = False | |
Dim WS As Worksheet, InitialSheet As Worksheet |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
' ---------------------------------------------------------------- | |
' Procedure Name: ToggleFormulaBar | |
' Purpose: Toggle the application to show/hide formula bar | |
' Procedure Kind: Sub | |
' Procedure Access: Public | |
' Author: sb172a | |
' Date: 7/9/2018 | |
' ---------------------------------------------------------------- | |
Sub ToggleFormulaBar() | |
Application.DisplayFormulaBar = Not Application.DisplayFormulaBar |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
' ---------------------------------------------------------------- | |
' Procedure Name: ToggleRibbon | |
' Purpose: Toggle the visibilty of the Excel ribbon and menu bars | |
' Procedure Kind: Sub | |
' Procedure Access: Public | |
' Author: sb172a | |
' Date: 7/11/2018 | |
' ---------------------------------------------------------------- | |
Sub ToggleRibbon() | |
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", " & CStr(Not Application.CommandBars("Ribbon").Visible) & ")" |
NewerOlder