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

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

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