Beuatify your spreadsheet by removing the gridlines on every worksheet and resizing it to 80% - Cacher Snippet

4/22/2017 - 10:39 AM

Beuatify your spreadsheet by removing the gridlines on every worksheet and resizing it to 80%

Beuatify your spreadsheet by removing the gridlines on every worksheet and resizing it to 80%

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