View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Bob Phillips[_3_] Bob Phillips[_3_] is offline
external usenet poster
 
Posts: 2,420
Default 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