Shorter Code

[Sandy]

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

 

[Guest]

for each sh in worksheets
sh.Activate
ActiveWindow.DisplayHeadings = True
Next

 

[Sandy]

Works a treat!
Thanks Tom
Sandy

for each sh in worksheets
sh.Activate
ActiveWindow.DisplayHeadings = True
Next