Sub ImproveReadability() ' ' ImproveReadability Macro ' ' Developer: Winko Erades van den Berg ' E-mail : winko@winko-erades.nl ' Developed: 10-10-2011 ' Modified: 10-10-2011 ' Version: 1.0 ' ' Description: Improve the readability of your Excel worksheet data by using colors 'Declare variables Dim iRow As Long Dim iCol As Long Dim HeaderRow as Integer 'Constant values HeaderRow = InputBox("Specify the row that contains the header information:") 'Create Input Box to ask the user where the header starts iCol = ActiveSheet.UsedRange.Columns.Count 'Determine how many columns are in use 'Change de header lay-out ActiveSheet.Range(ActiveSheet.Cells(HeaderRow, 1), ActiveSheet.Cells(HeaderRow, iCol)).Select With Selection.Interior 'Fill Color .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorLight2 .TintAndShade = 0 .PatternTintAndShade = 0 End With With Selection.Font 'Font Color .ThemeColor = xlThemeColorDark1 .TintAndShade = 0 End With Selection.Font.Bold = True 'Font Bold 'Start highlighting alternate rows For iRow = HeaderRow + 2 To ActiveSheet.UsedRange.Rows.Count Step 2 ActiveSheet.Range(ActiveSheet.Cells(iRow, 1), ActiveSheet.Cells(iRow, iCol)).Select With Selection.Interior 'Fill Color .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorLight2 .TintAndShade = 0.75 .PatternTintAndShade = 0 End With Next iRow End Sub