Skip to content

Instantly share code, notes, and snippets.

@ateneva

ateneva/ForEachWks_BeautifyWks.bas

Last active April 22, 2017 13:46
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save ateneva/daffa19ba09e5d685ba4739bb6d42edf to your computer and use it in GitHub Desktop.
Save ateneva/daffa19ba09e5d685ba4739bb6d42edf to your computer and use it in GitHub Desktop.
Download ZIP
Beuatify your spreadsheet by removing the gridlines on every worksheet and resizing it to 80%
Raw
ForEachWks_BeautifyWks.bas
Sub RemoveGridlines()
Dim Wks As Worksheet
'--------------------------------
'written by Angelina Teneva, 2014
'--------------------------------
For Each Wks In ActiveWorkbook.Worksheets
If Wks.Visible = True Then Wks.Activate
With ActiveWindow
.DisplayGridlines = False
.Zoom = 80
End With
Next Wks
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment