Re-sizing a Shape, WIDTH IS ALWAYS A PROBLEM!

[sll810]

I have created charts in excel with VbA and copid them into another sheet with paste special. I am trying to resize them.
I learned that I needed to resize them as a shape so I am using the code below to resize: I am sending in the sheet with the two charts copied to start in range a35 and j35 respectively, which they do.

Sub LineUpMyCharts(InSheet As Worksheet)
Dim MyWidth As Single, MyHeight As Single
Dim NumWide As Long
Dim iChtIx As Long, iChtCt As Long

MyWidth = 200
MyHeight = 300
NumWide = 3

iChtCt = InSheet.Shapes.Count
For iChtIx = 1 To iChtCt
With InSheet.Shapes(iChtIx)
.LockAspectRatio = msoFalse
.Width = MyWidth
.Height = MyHeight
.Top = Int((iChtIx - 1) / NumWide) * MyHeight + 475
End With
Next
End Sub

Everything works except for the width portion. Any ideas why? Or another way to format???? Thanks

 

[sll810]

Additionally, when I get the error message I hit the green run button again and it will correctly format it but I obviously still need to get the error message resolved. I don't understand why it would run after hitting the run button again, despite the error message.