Copying and Pasting Shapes

[ercedwards]

I have the following code

    Sheets("Pictures").Select
    ActiveSheet.Shapes.Range(Array(PicName)).Select
    Selection.Copy
    Sheets("Album").Select 
    Range("C" & MRow).Select
    ActiveSheet.Paste

I tried to simplify this with to speed things up

    Sheets("Pictures").Shapes.Range(Array(PicName)).Copy
    Range("C" & MRow).Select
    ActiveSheet.Paste

I get an "Object doesn't support doesn't support this property or method" error.

Any suggestions?

Thanks

 

[My Aswer Is This]

I believe your not showing us all your code.
Like what is:
MRow

And what is:
Range(Array(PicName)

I would use something like this:

Sub Copy_Shape()
'Modified  12/28/2019  9:44:55 PM  EST
Sheets("Pictures").Shapes("Pic").Copy
Sheets("Alpha").Range("B16").PasteSpecial
End Sub

 

[ercedwards]

Thanks kindly. Works great now.

 

[My Aswer Is This]

Thanks kindly. Works great now.

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.