Server:Server Status

Critical Excel Macro

I use excel constantly, and some things I require are freezing panes, autofitting the columns, adding auto filters, and standardizing the row heights. Here's the code for the macro I use, and I shortcut it with Ctrl+J.

Sub MakeSpreadsheetReadable()
'
' MakeSpreadsheetReadable Macro
' Macro recorded 5/23/2011 by Gullo, Joseph T. *HS
'
' Keyboard Shortcut: Ctrl+j
'
    Rows("1:1").Select
    Selection.AutoFilter
    Range("A2").Select
    ActiveWindow.FreezePanes = True
    ActiveWindow.Zoom = 70
    Cells.Select
    Cells.EntireColumn.AutoFit
    Selection.RowHeight = 12.75
End Sub

Leave a Reply