Setting Up Project To Open A Certain Way

[Amnesia_180]

Hey again.
I have another question.
I am looking for a way to setup the sheets so that when the project is opened, certain boxes are already selected and certain things (such as no gridlines etc, colours etc) are setup ready to go. That way the macros will run first time.

Thanks again
Amnesia

 

[~Zodiac~]

'Place the following code in "ThisWorkbook" (go to the vb editor and look below the sheets, there is a white square with the excel symbol in it, thats ThisWorkbook)
' whenever you open the workbook, this macro will be run and will change every worksheet into a borderless, black on white sheet


Private Sub Workbook_Open()

'
' Workbook_Open Macro
'
Dim ws As WorkSheet
Application.DisplayAlerts = False
For Each ws In ActiveWorkbook.Charts
Cells.Select
Range("E20").Activate
Selection.Font.ColorIndex = 0
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Selection.Interior.ColorIndex = xlNone
Next



End Sub


HTH

edit: Welcome to the Board

 

[Amnesia_180]

Thanks for that!
Great job!

Amnesia