I trying to paste textbox from sheet1 to sheet2

```
Function footer()
Application.Volatile True
r = Application.Caller.Address
SheetName = Application.Caller.Parent.Name

    Select Case Range("Locale").Value
        Case "RU": boxx = Range("company").Value & Range("Locale")
        Case "EN": boxx = Range("company").Value & Range("Locale")
    End Select
Worksheets("Translations").Shapes(boxx).Copy
MsgBox Worksheets("Translations").Shapes(boxx).TextFrame.Characters.Text
ActiveSheet.Paste
End Function

```

Msgbox Looks ok but paste function do nothing, i tryed different ways

* ActiveSheet.range("A1").Paste
* ActiveSheet.range("A1").PasteSpecial
* Worksheets(SheetName).Paste
* Worksheets(SheetName).Range(r).Paste

All not working, just nothing appears in the sheet, whats is wrong?