ResetColor/colour
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 |
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 |
ResetColor/colour
Many thanks, problem solved
Regards Fred |
All times are GMT +1. The time now is 03:34 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com