Skip to content

Instantly share code, notes, and snippets.

@asilachev
Last active November 4, 2016 07:27
Show Gist options
  • Save asilachev/8e544dfdc8c5302fde0c to your computer and use it in GitHub Desktop.
Save asilachev/8e544dfdc8c5302fde0c to your computer and use it in GitHub Desktop.
Excel VB tools
Sub UnhideAllSheets()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Visible = xlSheetVisible
Next ws
End Sub
Sub HideAllSheets()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Visible = x1SheetInvisible
Next ws
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment