Solved: Manipulating Activesheet Shapes?

[Simon Lloyd]

Hi all, i am trying to simply copy a shape over a range using the very simple macro below, i must admit i havent done any vba for around 2 months now so may be missing something simple, but when i run the code i get error 1004 Application - defined or object defined error!.....i cant seem to rectify it......a nudge in the right direction please!
[VBA]
Sub Macro2()
Dim i As Integer
For i = Range("G16") To Range("G2992") Step 12
ActiveSheet.Shapes("Oval 6990").Copy Destination:=i
Next
End Sub
[/VBA]

[Simon Lloyd]

I solved the problem above like this, but can anyone explain why the former wont work?
[VBA]
Sub Macro2()
Dim i As Integer
For i = 16 To 2992 Step 12
ActiveSheet.Shapes("Oval 6990").Select
Selection.Copy
Range("G" & i).Select
ActiveSheet.Paste
Next
End Sub
[/VBA]

[Bob Phillips]

A shape copy doesn't support the Destination argument, in fact it doesn't have any.

[rory]

For what it's worth, you also appeared to be trying to use i as a range, as well as an integer.
Regards,
Rory

[Simon Lloyd]

Thanks for the replies!