Skip Charts While Copying and Pasting Values a Whole Workbook

[easyquestions]

I'm trying to find VBA codes that will copy-paste values a whole workbook (w/many many tabs) but skip charts. The codes below are the one that I'm using to copy-paste special values for a whole workbook. But I have a few charts included this time, and wouldn't work unless I manually change the sheet count#. Please help!

Sub MakeDeliverable()<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o> </o>
Application.ScreenUpdating = False<o></o>
<o> </o>
Dim i<o></o>
For i = 1 To Sheets.Count<o></o>
<o> </o>
Sheets(i).Visible = True<o></o>
Sheets(i).Select<o></o>
With Selection<o></o>
.Copy<o></o>
.PasteSpecial Paste:=xlPasteValues<o></o>
End With<o></o>
Range("A1").Select<o></o>
<o> </o>
Next i<o></o>
<o> </o>
Sheets(1).Select<o></o>
<o> </o>
Application.ScreenUpdating = True<o></o>
<o> </o>
End Sub<o></o>

 

[Datsmart]

Set the Chart Properties to "Don't move or size with cells".

To do this:
On the Chart Tools > Format tab > Size group, click the little symbol to the right of the group label ("Size"). This opens up a familiar dialog, and what you want is on the Properties tab.
You will have to do this for each Chart.

 

[Jerry Sullivan]

In addition to John's suggestion, if you want your code to skip over Sheets that are Charts (as opposed to Charts on Worksheets), you can replace references to "Sheets" in your code with "Worksheets".

 

[easyquestions]

Thank you so much, you guys!

Jerry, that worked like a magic; I had sheets that are charts in my workbook like you said. Perfect! Thanks again!

 

[Jerry Sullivan]

Glad to have helped. Thanks for the reply.