| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Shorter Code
Is there any way I can make the following a bit more code efficient?
Thanks in advance Sandy Sheets("Chart Data").Select ActiveWindow.DisplayHeadings = True Sheets("Info").Select ActiveWindow.DisplayHeadings = True Sheets("Chart Data2").Select ActiveWindow.DisplayHeadings = True Sheets("Chart Data3").Select ActiveWindow.DisplayHeadings = True Sheets("Chart Data4").Select ActiveWindow.DisplayHeadings = True Sheets("Chart Data5").Select ActiveWindow.DisplayHeadings = True Sheets("Chart Data6").Select ActiveWindow.DisplayHeadings = True Etc Etc |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Shorter Code
for each sh in worksheets
sh.Activate ActiveWindow.DisplayHeadings = True Next -- Regards, Tom Ogilvy "Sandy" wrote: Is there any way I can make the following a bit more code efficient? Thanks in advance Sandy Sheets("Chart Data").Select ActiveWindow.DisplayHeadings = True Sheets("Info").Select ActiveWindow.DisplayHeadings = True Sheets("Chart Data2").Select ActiveWindow.DisplayHeadings = True Sheets("Chart Data3").Select ActiveWindow.DisplayHeadings = True Sheets("Chart Data4").Select ActiveWindow.DisplayHeadings = True Sheets("Chart Data5").Select ActiveWindow.DisplayHeadings = True Sheets("Chart Data6").Select ActiveWindow.DisplayHeadings = True Etc Etc |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Shorter Code
Works a treat!
Thanks Tom Sandy "Tom Ogilvy" wrote in message ... for each sh in worksheets sh.Activate ActiveWindow.DisplayHeadings = True Next -- Regards, Tom Ogilvy "Sandy" wrote: Is there any way I can make the following a bit more code efficient? Thanks in advance Sandy Sheets("Chart Data").Select ActiveWindow.DisplayHeadings = True Sheets("Info").Select ActiveWindow.DisplayHeadings = True Sheets("Chart Data2").Select ActiveWindow.DisplayHeadings = True Sheets("Chart Data3").Select ActiveWindow.DisplayHeadings = True Sheets("Chart Data4").Select ActiveWindow.DisplayHeadings = True Sheets("Chart Data5").Select ActiveWindow.DisplayHeadings = True Sheets("Chart Data6").Select ActiveWindow.DisplayHeadings = True Etc Etc |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Shorter way | Excel Discussion (Misc queries) | |||
| Shorter Sub | Excel Programming | |||
| Shorter code | Excel Programming | |||
| Shorter code | Excel Programming | |||
| shorter way? | Excel Programming | |||
Linear Mode
