Problem with a Chart when looping through sheets

As a new VBA person, I have searched all over the place for an answer, but I could really use some help.

I have a macro I use when developing a new Workbook that sets all sheets up for easy use. I also have another macro that undoes all that to see what the finished product will look like. Both macros have been working great, until today when I inserted a Chart into one of the sheets. The code is listed below and blows up when it get to the ".DisplayHeadings = True" line. I have figured out that the code does not work with a chart, but I need to know how to identify the chart in order to insert an IF-ENDIF function to work around it.

Please Login or Register  to view this content.