Excel Quick Format Worksheet | VBA Macro #2

This is an Excel Macro that will help you quickly format a spreadsheet consistently without having to click all the typical formatting options. This macro will help prevent common mistakes and provide a more consistent formatting result. This code can be easily customized to meet your unique formatting needs!

See it in Action!

Watch this video to see this macro in action.

The Code

Here is the code behind this macro.

'Leverage & Lean "Less Clicks, More Results"
Sub QuickFormat()

'If nothing is selected format the entire spreadsheet.
If Selection.Cells.Count = 1 Then
'Format Top Row of Spreadsheet
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select

'Set the alignment and borders top row
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.Borders.LineStyle = xlContinuous
.Borders.Weight = xlThin
End With

'Formatting Options top row
With Selection.Font
.Size = 10
.Bold = True
.Italic = False
.Underline = False
.Name = "Calibri"
End With

'Select the rest of the Spreadsheet
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select

'Set the alignment and borders for all other rows
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.Borders.LineStyle = xlContinuous
.Borders.Weight = xlThin
End With
End If

'If something is selected format that selection.

'Formatting Options rest of spreadsheet
With Selection.Font
.Color = RGB(0, 0, 0)
.Size = 10
.Bold = False
.Italic = False
.Underline = False
.Name = "Calibri"
End With

'Space out the columns to fit
Cells.EntireColumn.AutoFit

'Finish at the top of worksheet
Range("A1").Select

End Sub
'Stay Awesome!

Macro Instructions

Watch this video to get started using this macro.

Customization