.Range(“A2:F2”).VerticalAlignment = xlBottom
.Range(“A2:F2”).WrapText = False
.Range(“A2:F2”).Orientation = 0
.Range(“A2:F2”).ShrinkToFit = False
.Range(“A2:F2”).MergeCells = True
.Range(“A2:F2”).Borders(xlDiagonalDown).LineStyle =
xlNone
.Range(“A2:F2”).Borders(xlDiagonalUp).LineStyle =
xlNone
.Range(“A2:F2”).Borders(xlEdgeLeft).LineStyle = xlNone
.Range(“A2:F2”).Borders(xlEdgeTop).LineStyle = xlNone
.Range(“A2:F2”).Borders(xlEdgeBottom).LineStyle =
xlNone
.Range(“A2:F2”).Borders(xlEdgeRight).LineStyle = xlNone
.Range(“A2:F2”).Borders(xlInsideVertical).LineStyle =
xlNone
.Range(“A3:F3”).HorizontalAlignment = xlCenter
.Range(“A3:F3”).VerticalAlignment = xlBottom
.Range(“A3:F3”).WrapText = False
.Range(“A3:F3”).Orientation = 0
.Range(“A3:F3”).ShrinkToFit = False
.Range(“A3:F3”).MergeCells = True
.Range(“A3:F3”).Borders(xlDiagonalDown).LineStyle =
xlNone
.Range(“A3:F3”).Borders(xlDiagonalUp).LineStyle =
xlNone
.Range(“A3:F3”).Borders(xlEdgeLeft).LineStyle = xlNone
.Range(“A3:F3”).Borders(xlEdgeTop).LineStyle = xlNone
.Range(“A3:F3”).Borders(xlEdgeBottom).LineStyle =
xlNone
.Range(“A3:F3”).Borders(xlEdgeRight).LineStyle = xlNone
.Range(“A3:F3”).Borders(xlInsideVertical).LineStyle =
xlNone
.Range(“A4:F4”).MergeCells = True
.Range(“A4:F4”).Borders(xlDiagonalDown).LineStyle =
xlNone
.Range(“A4:F4”).Borders(xlDiagonalUp).LineStyle =
xlNone
.Range(“A4:F4”).Borders(xlEdgeLeft).LineStyle = xlNone
.Range(“A4:F4”).Borders(xlEdgeTop).LineStyle = xlNone
.Range(“A4:F4”).Borders(xlEdgeRight).LineStyle = xlNone
.Range(“A4:F4”).Borders(xlInsideVertical).LineStyle = _
xlNone
.Range(“A1:A4”).Font.Size = 14
.Range(“A1:A4”).Font.Bold = True
.Range(“A3”).Value = “As of “ & Date
.Range(“A2”).Value = “Account Services”
.Range(“A1”).Value = “Nation-wide Summary of”
Working with Excel Worksheets 7