Access.2007.VBA.Bibl..

Apply the Calibri 9 pt font to the entire worksheet:

.Range(“A:F”).Font.Name = “Calibri”

.Range(“A:F”).Font.Size = 9

Apply hairline borders to the entire worksheet:

.Range(“A:F”).Borders(xlDiagonalDown).LineStyle = _

xlNone

.Range(“A:F”).Borders(xlDiagonalUp).LineStyle = xlNone

.Range(“A:F”).Borders(xlEdgeLeft).LineStyle = _

xlContinuous

.Range(“A:F”).Borders(xlEdgeLeft).Weight = xlHairline

.Range(“A:F”).Borders(xlEdgeLeft).ColorIndex = _

xlAutomatic

.Range(“A:F”).Borders(xlEdgeTop).LineStyle = _

xlContinuous

.Range(“A:F”).Borders(xlEdgeTop).Weight = xlHairline

.Range(“A:F”).Borders(xlEdgeTop).ColorIndex = _

xlAutomatic

.Range(“A:F”).Borders(xlEdgeBottom).LineStyle = _

xlContinuous

.Range(“A:F”).Borders(xlEdgeBottom).Weight = _

xlHairline

.Range(“A:F”).Borders(xlEdgeBottom).ColorIndex = _

xlAutomatic

.Range(“A:F”).Borders(xlEdgeRight).LineStyle = _

xlContinuous

.Range(“A:F”).Borders(xlEdgeRight).Weight = _

xlHairline

.Range(“A:F”).Borders(xlEdgeRight).ColorIndex = _

xlAutomatic

.Range(“A:F”).Borders(xlInsideVertical).LineStyle = _

xlContinuous

.Range(“A:F”).Borders(xlInsideVertical).Weight = _

xlHairline

.Range(“A:F”).Borders(xlInsideVertical).ColorIndex = _

xlAutomatic

.Range(“A:F”).Borders(xlInsideHorizontal).LineStyle = _

xlContinuous

.Range(“A:F”).Borders(xlInsideHorizontal).Weight = _

xlHairline

.Range(“A:F”).Borders(xlInsideHorizontal).LineStyle = _

xlContinuous

Set the widths of the columns:

.Range(“A:A”).ColumnWidth = 25

.Range(“B:B”).ColumnWidth = 15

.Range(“C:C”).ColumnWidth = 15

Working with Excel Worksheets 7