ResetColor/colour

[fred.newton]

I need to be able to reset the colour of all spreadsheets I open to
the standard/default palette. Easy I thought, Open_Workbook event in
my Personal macros, however this does not seem to kick in.

Can anyone offer suggestions as to the appropriate place to put this,
I have tried various locations in Personal, all without success.

Thanks
Fred

 

[Bob Phillips]

Put this in Personal.xls

Option Explicit

Public WithEvents App As Application

Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
Wb.ResetColors
End Sub

Private Sub Workbook_Open()
Set App = Application
End Sub

'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code

 

[fred.newton]

Many thanks, problem solved

Regards
Fred