Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Cells
.Interior.ColorIndex = xlNone
With .Borders
.LineStyle = xlNone
.ColorIndex = xlNone
End With
End With
Range("A1").Select
End Sub
Private Sub Workbook_Open()
With Cells
.Interior.ColorIndex = 15
With .Borders
.LineStyle = xlDot
.Weight = xlThin
.ColorIndex = 3
End With
End With
Range("A1").Select
End Sub