paste object in a position which value is store in a cell of a worksheet

[iaudio1233]

My case should be very simple but not successful to find a solution
Sub placeobject()
'

Selection.Copy
Range("A7").Select
ActiveSheet.Paste

End Sub

I know A7 is the place I paste the object.

Ask :
I want to paste the object to a position which value is store in cell N13 of worksheet1
please kindly help.
Thanks





T

 

[Dan_W]

Hi. The code below should work. It assumes a few things:
1. Worksheet1 is called "Sheet1" - if it has a different name, you will need to adjust the code.
2. The destination cell in N13 uses standard notation: eg, "D3", "F6"
3. You are selecting the target object on the sheet when you run the code.

Sub placeobject()
Dim Destination As String
Destination = Sheets("Sheet1").Range("N13").Value
Selection.Copy
Range(Destination).Select
ActiveSheet.Paste
End Sub