ResetColor/colour
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
--
__________________________________
HTH
Bob
wrote in message
...
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
|