Sub Format_Headers() ' ' Format Header Rows of Table ' Assumes the Header Row is Row 1 ' 'Setup Constants Const myLinest As Integer = 1 'xlContinuous Const myLinewt As Integer = -4138 'xlMedium Const myLineCI As Integer = -4105 'xlAutomatic const Const myIntClr As Integer = 15 'Grey Range("A1").Select Range(Selection, Selection.End(xlToRight)).Select With Selection .Font.Bold = True .Borders(xlDiagonalDown).LineStyle = xlNone .Borders(xlDiagonalUp).LineStyle = xlNone With .Borders(xlEdgeLeft) .LineStyle = myLinest .Weight = myLinewt .ColorIndex = myLineCI End With With .Borders(xlEdgeTop) .LineStyle = myLinest .Weight = myLinewt .ColorIndex = myLineCI End With With .Borders(xlEdgeBottom) .LineStyle = myLinest .Weight = myLinewt .ColorIndex = myLineCI End With With .Borders(xlEdgeRight) .LineStyle = myLinest .Weight = myLinewt .ColorIndex = myLineCI End With With .Borders(xlInsideVertical) .LineStyle = myLinest .Weight = myLinewt .ColorIndex = myLineCI End With .Interior.ColorIndex = myIntClr End With Cells.EntireColumn.AutoFit Range("A2").Select ActiveWindow.FreezePanes = True With ActiveSheet.PageSetup .PrintTitleRows = "$1:$1" End With End Sub