Exce VBAl 2013 version shape copy paste still refers to old location

I have inserted two shapes ("Plus Sign") in cell z14 of excel 2016. As per my requirement I am using below code for shape copy paste

Range("Z14").copy
Range("D15").activate
activesheet.paste
'------ I am using below code to fetch row number on click of macro ------
 Dim wb As Workbook
 Dim ws As Worksheet
 Set wb = ThisWorkbook
 Set ws = ThisWorkbook.Worksheets("Additional_Details")
 
    Set b = ws.Shapes(Application.Caller)
    With b.TopLeftCell
        cs = .Row
    End With

Above code works fine excel 2016 however it is providing old row number "14" in excel 2013

Please suggest.
Vishal BharakhadaAsked:
Who is Participating?
 
ShumsConnect With a Mentor Distinguished Expert - 2017Commented:
I am not sure about row number for copy pasting shapes, try below if you are pasting shape in the same sheet in D15:
Sub CopyShapes()
Dim Ws As Worksheet
Dim Shp As Shape
Dim Wb As Workbook
Set Wb = ThisWorkbook
Set Ws = Wb.Worksheets("Additional_Details")
For Each Shp In Ws.Shapes
    If Shp.Name = "Plus Sign" Then
        Shp.Copy
        Ws.Range("D15").PasteSpecial xlPasteAll
    End If
Next Shp
End Sub

Open in new window

Vishal_CopyShapes.xlsm
0
 
ShumsDistinguished Expert - 2017Commented:
No Comments been added after provided solution.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.