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