Copy/Paste Shape to active sheet

[RLJ]

I've tried multiple versions of updating the below code from recording my actions to make it available to me on any active sheet. Every time I tried to update it to Copy the (Array("QuickLinks")) from the Quick Links Sheet and then paste it on the active sheet I get errors.

Sub CopyQuickLinks()


'NEED the Active Sheet to be "Quick Links"
    ActiveSheet.Shapes.Range(Array("QucikLinks")).Select
    Selection.Copy
    Range("E1").Select
    ActiveSheet.Paste
    Range("C1").Select
End Sub

Thank you for your help!

 

[Micron]

maybe it's because of the way you spelled QucikLinks?

 

[RLJ]

maybe it's because of the way you spelled QucikLinks?

I do see that there is a misspelling there, but I recorded a macro and it picked up the misspelling from the Shape Array, so that should not be a problem. I can run the code just fine on the sheet that I recorded it from.

 

[Micron]

You can't run the same code from any sheet and use ActiveSheet to refer to a range array unless that range array name exists on every sheet that could be active when it runs. Not sure what it is you have so I'm not sure what to suggest as a fix. Maybe replace ActiveSheet with Sheets("Quick Links") if that is the only sheet that contains the array.