Navin,
This code does not create duplicates for me.
Must be something else that is doing that.

NickHK

"navin" wrote in message
ups.com...
Hi All,

I have some 20 charts in a spreadsheet. I want all the charts to be of
same size (height and width). I am doing this with the following code:

Dim ChtOb As ChartObject
Dim ChartLeft As Double, ChartTop As Double
Sub ChartSize()
'
' ChartSize Macro
' Macro recorded 3/26/2007 by E366091
'
' Keyboard Shortcut: Ctrl+Shift+E
'

For Each ChtOb In ActiveSheet.ChartObjects
ChtOb.Height = 253.5
ChtOb.Width = 386.25
Next ChtOb
End Sub


Above code works perfectly when resizing the charts, but it again
create a duplicate of all the charts. I am not able to understands, as
why it creates a duplicate of the charts. Please help.

thanks,
navin